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EDITORIAL 


Chers amis, 


Voici arrivé septembre avec son cortège de feuilles 
mortes: néanmoins, celles que vous lisez à présent 
sont loin d'être dans cet état, jugez vous-mêmes,.,. 


La nouvelle présentation de la rubrique HP 71 vous 
donnera un petit apercu dé ce que sera bientôt 
votre Journal préferé: c'est encore une formule 
expérimentale et nous attendons de pied ferme vos 
critiques et Suggestions Sur CE point pour 
parachever notre oeuvre, Four plus de détails, 
reportez-vous à l'article de Frederics n'oubliez 
cependant pas qu'il n'est nullement impératif que 
vous nous envoyies toutes vos idées géniales sous 
cette forme, mais ce serait Tellement mieux pour 
nous tous, et pour les autres... 


Utilisateurs de HF 41,4 75% lhs 15 12, Etc... 
êtes-vous relégués au fin fond des Ténebres 
Exterieures pour que nous n'ayons pius de vos 
nouvelles T 11 ne tient qu'à vous que vos rubriques 
soient plus etoffées. 


Four conciure: n'oubliez pas que pour notre 
Assemblée Générale annuelle, prévue en octobre, 
nous Sommes à la recherche d'une salle pour nous 
réunir un dimanche, notre salle mensuelle n°étant 
disponible que le samedi, Avis à faire circuler ! 


LE Bureau, Olivier ARBEY 


Fe Se Cet éditorial «a été rédigé avec l'aide du 
Hemotiaker du HF 110,,, De plus amples informations 
dans notre prochain numero ! 
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DIVERS 


NOUS _EN AVONS 


Sont en vente au Club: 


Cartes magnétiques: 150 FF les 50 cartes 
Eproms (2716 et 2732) 
Vierges: 55 FF + 3,10 FF de port 
Programmées: nous consulter 
Convertisseurs HP-IL (référence HP 821664): 1650 FF + 3,10 FF 
de port. Livrés avec connecteurs et manuel. 
I1 reste un module HP-IL en promotion (pour HP 41): 760 FF 
+ 8,10 de port. 
Le MLDL Hollandais (société ERAMCO) : 3860 FF + port 
24 K Rom, 8 K Ram de microcodes. Délai de 1 à 2 mois. 
— Commandes de la ZENROM et de la CCD ROM: prix de 
souscription: 1000 FF, envoyez nous 500 FF minimum d'arrhes. 
- VASM (listings commentés par HP des 3 premières pages 
microcodes de la HP 41): 150 FF + port. 
— Manuel de service de la HP 41: 50 FF + port 
— Manuel technique du convertisseur: 20 FF + port 


ACHATS GROUPES 


Nous envisageons de grouper les achats de ceux qui le 
désirent, afin d'avoir des réductions sur les matériels 

HP et autres. 

En effet, il vaut mieux être 5 pour demander une réduction 
que seul. Nous aurons ainsi plus de poids face à certains 
magazins. C'est aussi cela, le Club ! 

Faîtes nous connaître vos intentions d'achat. Nous ferons 
tout ce qui est possible pour négocier, mais il faut que 
nous ayons des promesses fermes... 

Pour l'instant, il y a 3 personnes qui se sont décidées pour 
le module Forth/Assembleur du HP 71. À vous de jouer ... 


COURRIER DU COEUR 


Saunier Stéphane revend sa souscription à la CCD ROM car 
il est obligé de se séparer de son système 41. Cette 
souscription a été effectuée au SICOB pour la somme de 
885 FF. Si cela interesse quelqu'un: 

SAUNTER Stéphane 

11 allée de la Source 

78480 Verneuil/Seine 
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À propos de JPC, 


Avec l’arrivée du 71, de 
nouvelles possibilités s’offrent 
à nous pour la présentation des 
articles. dJusqu’a maintenant, 
nous avons publié les docugents 
QUE VOUS nous envoyez en les 
photocopiant. Il est maintenant 
possible d'adopter un format 
standard, et, surtout 
d'abandonner l'idée selon 
laquelle un texte d’article 
cosmence en haut d’une page et 
se termine en bas. 

Il vous suffit, pour vous 
en convaincre, de parcourir Îa 
rubrique 7; vous constaterez 
qu'une partie des articles est 
enchairée, imprinée Sur 
colonnes, es listages étant 
séparés et structurés 
automatiquement. Pour aboutir à 
cette présentation il suffit que 
tous les articles nous arrivent 
sous forge magnétique, c'est à 
dire que vous Îles tapiez dans 
votre Ji sans bien sur vous 
occuper du format, L'opération 
n'est pes plus difficile que 
celle qui consiste à écrire un 
article à la sachine, Et 
autorise les corrections, 


Si nous recevons les deux 
fichiers (progranme et texte) 
sous cette forme, il nous suffit 
de quelques ginutes pour traiter 
ét enchainer les articles, et de 
quelques autres pour ie listage. 
Si vous ne pouvez Vous séparer 
d’une cassette &Éne pendant 
quelques jours, sachez qu'il 
sera toujours possible d’en 
faire une cogie dors de nos 
réunions gensuelles, D'autre 
part, je suis tout à fait 
conscient que relativement peu 
de gens  possédent déjà 
l'interface HF IL, le lecteur de 
cassettes, et une inprisante. 


Si vous n'avez pas de 
lecteur, vous pourrez utiliser 
cette néthode en tapant votre 
article la veille d’une réunion, 
vous y trouverez tout le 
ratériel nécéssaire pour nous 
fournir votre ceuvre, 


D'autre part, beaucoup de 
senbres ne peuvent NOUS ENVOYET 
d'articles du fait qu’ils n'ont 
pas d'iaprimante ou de machine à 
écrire, et donc reculent devant 
les difficultés à sursonter pour 
nous fournir un travail propre, 
Grace à cette méthode, 
l’obstacie est sureonté, et je 
pense que cela devrait étre un 
grand pas vers l'élargissement 
nécéssaire du cercle des 
auteurs, 


L'utilisation du progranne 
de mise au format que nous avons 


réalisé permettrait donc de 
gagner en place et en 
lisibilité. Il est d'autre part 


entièrement compatible avec les 
jeux de caractères secondaires 
créés grace au programfe de 
Michel Martinet que vous 
trouverez dans ce nuñéro. 


Mais, vous demandez vous, 
coment taper votre article? 
I suffit de taper le texte sous 
la forge d'un progragne basic ne 
contenant que des remarques (en 
utilisant le symbole ! au lieu 
de ren), le teste étant 
agrémenté de quelques congandes 
telles que: ailer à la ligne, 
paragraphe suivant, sauter des 
lignes, tirer un trait, Une 
CORMaNGE SE COMSOSE du Caractère 
# suivi de la connande elle 
sèse., Une commande doit étre la 
seule chose contente sur une 
ligne. Pour indiquer d’aller à 
la Jigne, vous entrez donc une 
ligne contenant ! %L, pour aller 
au paragraphe suivant , la ligne 
sera ! PF, Pour sauter des 
lignes, la comeande est 5, ce 
qui donne, pour 3 lignes: ! 53, 


Pour tirer un trait: tapez la 
ligne ! 7, 
C’est, vous le voyez, très 


simple, Si vous désirez des 
renseignements supplémentaires, 
passez aoi un coup de fil au (1) 
680 07 34. 


Vous remarquerez que les 
listages structurés sont 
agrémentés de conmentaires, Ceux 
ci sont sinplement entrés dans 
le corps du progrange sous f0rmE 
de remarques. Au moment du 
listage, leurs numéros de lignes 
sont purement et sinplement 
supprimés. Cette méthode vous 
évite, si vous voulez documenter 
vos programges, d'utiliser les 
classiques lignes de resarques 
ne contenant que des pointillés, 
des lignes de séparations sont 
en effet insérées avant chaque 
fonction utilisateur, chaque 
étiquette, chèque SOUS 
programe. Le listage est alors 
clair, mais Île prograëne ne 
prend pas une place inconsidérée 
En RÉAGITE. 


de ne vous fais bien sur 1à 
qu’une proposition. Vous n’étes 
pas du tout tenu de me suivre. 
Tous les articles tapés à la 
sechine restent les bienvenus, 
Le but de Ja chose est 
sisplement de vous peraettre 
d'écrire des articles, méme si 
vous n'avez qu'un 71, Je trouve 
également agréable de faire 
participer nos gachines à Ja 
rédaction de nos articles, Mais 
n'oubliez pas, Ce sont Vos 
articles qui décideront en 
dernier ressort si cette séthode 
est appelée à Vivre. 


d’espére bientét vous lire. 


Frédéric POUPDN (434). 


JPC 
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QUOI DE NEUF SUR LA BOUCLE ? 






Un point sur les futurs périphériques HP-IL est indispensable, pour 
discerner les rumeurs des certitudes. 

Trois nouveaux appareils HP-IL sont annoncés, plus ou moins officiel- 
lement: l'imprimante à Jet d'Encre ("Think Jet"), un lecteur de 
disquettes, et une nouvelle interface vidéo 80 colonnes. 












Vous connaissez déjà bien "Think Jet", puisqu'elle est annoncée 
officiellement, qu'eille était en démonstration au Sicob de Printemps, 

et qu'elle a fait l'objet d'une présentation dans les colonnes de JPC. 
Selon les dernières informations, son prix ne dépasserait pas 6000 FF TIC, 
en France. Il est actuellement de 430 $ (prix Educalc),. 












Le lecteur de disquette est une "rumeur certaine", D'ici la fin de 
l'année, nous disposerons pour environ 7000 à 8000 FF d'une unité 
de disquette 3% pouces, (format HP-Sony), totalisant une capacité 
de stockage d'à peu près 600 Ko formattée. Certaines mauvaises 
langues pensent que c'est une version modifiée du lecteur de 
disquette qu'avait conçu Frédéric Poupon, et dont il nous avait 
parlé dans le numéro d'avril 84 ! Dernière chose: la référence serait 
HP 9114, selon des sources bien informées ... 











Quant à l'interface vidéo 80 colonnes, il semblerait qu'elle soit 
fabriquée par une firme danoise. Justement, nous avons reçu des 
informations sur une firme danoise qui fabrique une interface vidéo. 

Quel hasard ! Ses caractéristiques sont annoncées, ce qui me permet de 
vous en faire part: 

Elle est (paraît-il) optimisée en ce qui concerne la vitesse d'affichage. 
Le jeu de caractère Ascii est étendu avec 28 caractères spéciaux 
(symboles grecs). Les jeux de caractères nationaux sont en option. 

La vidéo inverst est implémentée. Du coté séquences d'échappements, 

je ne veux pas paraître difficile, mais l'interface vidéo fabriquée par 
Mountain Computers, commercialisée par La Règle A Calcul en possède 
beaucoup plus ... Espérons que cette interface aura toutes les 
capacités HP-IL. Dernière chose: la firme danoise s'appelle MICRONIX. 


















D'autre part, Educalc (un gros magasin américain) annonce dans son 
catalogue un lecteur de disquette 180 Ko 5 pouces un quart. Compatible 
IBM. On ne rit pas ! 

Plus interessant est l'écran à cristaux liquides de 25 lignes de 80 
caractères, qui coutera aux alentours de 500 $. Date non annoncée... 
Il se branche sur l'HPIL, et mesure 23x14 cm. 









Nous attendons avec impatience ces nouveaux matériels pour un essai 
dans JPC. Nous vous tiendrons informés dès que possible. 












Pierre DAVID 
PS: Pour les heureux possesseurs de l'interface vidéo Mountain Computer, 
Michel Martinet a modifié le jeu de caractères, et a implanté notamment 
un jeu semi-graphique très complet. Passez à La Règle À Calcul demander 
une démonstration, ce n'est pas tous les jours que l'on peut voir 

une interface vidéo HP-IL faire du graphique !!! 









JFC n°17 page 4 


des nouvelles de ccd-rom 


Cher Philippe. 


Voici les désirés 


module CCD ! 


ranseianements sur le 


Le module CCD sera une ROM micro-code de Bk. 
Il contiendra quatre blocs de +fonctions 
principaux qui seront décrits ci-dessous : 


— Extensions du systême, 

— Utilitaires. 

- Fonctions mathématiques. 

- Fonctions d'Entrée / Sortie. 


Voici une brève description des fonctions et 
de la philosophie qui les supporte : 


Extensions du Systêème 


Les fonctions svstême suivantes ont été 
rendues plus puissantes : CAT, ASN et XEG. 


CAT : En plus des anciens catalogues i at 3. 
nous avons les nouveaux catalogues 3 


CAT OQ 3: c'est un catalogue de boucle qui 
liste tous les appareils de la boucle en 
affichant leur adresse et leur chaine 
d'identification. € Si l'appareil ne peut 
Das envoyer un ID. on affiche alors AID ou 


77? ). L'apoareil primaire est repéré par un 
astérisque. Lorsque l'on arrête le 
catalogue, on peut réinitialiser un appareil 
{ Selected Device Clear ) en pressant la 
touche “C*. ou le rendre appareil primaire 
en appuyant sur la touche ENTER. 


CAT 2: Comme le CAT 2 normal, mais avec les 
“fonctions etendues' : 


— R/S : Déroule le catalogue en avant, 


— Shift R/S : Le déroule en arrière, 


— ENTER bascule entre le catalogue des 
titres de KOM et le catalogue des fonctions 
{ comme sur la 41CX ). L'’appui sur ENTER, si 
le catalogue est en mode fonction, affichera 
le titre de la ROM courante, et non le 
suivant comme le fait la 41CX. 


— La touche A" permet d'affecter la 
fonction affichée à une touche. directement 
à partir du catalogue. 

— XER : Permet d'exécuter une fonction. 
directement a partir du catalogue. 


CAT 4 : Est analoque à EMDIR, mais, en plus, 
affichera correctement les types de fichier 
additionnels ( voir ci-dessous ). 


CAT S : C'est L'ALMEAT du module TIME. Ii 
affichera "NO TIMER" 5i un tel module n'est 
pas enfiche. 


CAT é& 3: Analogue au CAT 6 de la 41iCX, mais 
avec quelques différences importantes : 


fonctions 
correctement 
en tant que 


affectations de 
synthétiques sont affichées 
(c'est-à-dire comme affichées 
ligne de programme ). 


Toutes les 


Le nom de la fonction, suivi du code touche, 
ast justifié à droite de l’afficheur, et non 
a qauche. Voici un exemple : 


! TONE 11° 
# REL M 12" 


La raison en est qu’il est beaucoup plus 
facile pour l'oRil humain de suivre ce 
catalogue que celui de la 41CX. 


CAT 7 1 C’est le DIR du module IL. Si ce 
aodule n’est pas presant, l'’afficheur 
indiquera : 

“NO HPIL' 
CAT 6-F 3: Ces catalogues sont des entrées 
spéciales dans CAT 2. Ils commencent à 
lister les fonctions à la ROM située à la 
page indiquées, &i la page correspondante est 
vide, 1”’afficheur indiquera : 

“NO ROM“ 


XER et ASN permettent une entrée directe de 
codes fonction a deux octets, soit an 
hexadecimal, soit en decimal, On peut en 
outre entrer, des numéros de XRDM, apres 
avoir pressé à nouveau la touche XEQ. 


Les extensions ASN, CAT et XER sont 
présentes dès que le module CCD est enfiché. 
11 n'est pas nécessaire de les affecter à 
des touches spaciales, 


MODE MINUSCULES : Ce nouveau mode est mis en 
service en exécutant LCON. LCOFF le met hors 
service. Lorsque ce mode est en service, an 
peut introduire au clavier n'importe quelle 
chaine de caractères dans le registre alpha 
ou dans une ligne programme de texte. En 
mode alpha, on dispose de quatre clayiers 1! 
NORM, Shift NORM, UBER et Shift USER. 


— USER ,est le clavier ALPHA bien connu avec 
des caractères majuscules, 


—- Shift USER correspond à l’ancien clavier 


ALPHA Shift, 


— NORM donne tous les caractères minuscules 
Plus certains caractères spéciaux, 


— Shift NORM donne de nombreux caractères 
spéciaux tels que AQU ... ete ... 


Six touches ont des fonctions spéciales 3 


Sur le clavier Shift NORM la touche ENTER 
appelle un octet en hexadecimal ou decimal 
qui Sera concateng à la chaine en cours 


d‘édition. 


Sur 


le Elavier Shift USER les touches de la 
ligne 


Supérieure pernettent de concaténer 
des chaines prédefinies, de 6 caracteres au 
plus, au registre ALPHA ou à la ligne de 
programme que l'on est en train d'éditer. 
Cette particularité est trés utile lorsque 
l'on programme des codes de contrôle 
d'imprimante. 


supplémentaire des 


Une particularite 5 
est la possibilite 


æ A 
extensions systèmes 
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LE 
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JPC 


d'‘accéder directement à tous les registres 
d'état comme on le fait actuellement avec 
les registres de la pile. 


Les extensions énumérées ci-dessus rendent 
les proorammes "LOAD BYTE". “KA ou “MK” 
tout-à-fait depassäs. Tout le reste - comme 
compiler des programmes utilisateur, 
renumeroter automatiquement les adresses de 
registres ou d° étiquettes, etc. — est facile 
a programmer au moyen des fonctions 
suivantes : 

DTilitair es 

C'est, un groupe de fonctions permettant 
d'acceder à tous les emplacements de RAM de 
la HP-41. Contrairement à d'autres solutions 
travaillant avec des nombres non normalisés 
difficiles a  eréer et à déchiffrer 
(Finalement que vous apporte d ‘obtenir une 
chaine de 14 caractères en décadant le 
contenu du registre si Vous ne désirez 
collecter qu'un octat 7 ), nous sommes en 
train d'élaborer un ensemble de fonctions 
opérant au niveau d’un octet. Ces fonctions 
permettent d'écrire des programmes qui 
chargent ou modifient d’autres programmes ou 
des portions de RE, beaucoup pius 
facilement et plus Lraoidement qu ‘aucune 
autre méthode pubiiee â ce jour. 


Les formats d'entrée suivants sont comauns à 
toutes ces fonctions : 


Une adresse est de la forme rrr.b ou rrr est 
le numéro absolu du registre (@ <= rrr < 
1924) et b le numero de l'octet (@ <= b < 7) 
l'extrémité 


en commencant par droite du 
registre. 
Lorsqu ‘une adresse est incrémentée, son 


numéro d'octet est incrémenté en premier. Si 
le resuitat est 7, il est remplacé par B at 
le numéro du registre est incrénenté. 


Une valeur d'octét bbh est une valeur 
numérique quelconque @ <= bhh < 256. Tous 
les chiffres additionnels non nuls seront 
« e ? #* 

ignores pour les entrees d'octets et 


d'adresses. 


Voici une liste des fonctions s © X. Y. Z. T 
et L sont les registres de la pile ). 


FEEKB 8 Rappelle la valeur de l'actet pointé 
par 1’/adresse stockée en X, et la place en 
*. L’adresse est incrémentée ou décrémentée 
selon son signe et se retrouve en Y. 
L‘ancienne adresse est conservée en L. 


POKEB +: Place la valeur donnée par X dans 
l'octet pointé oar l'adresse située en Y. La 
pile tourne vers le bas ( la valeur de 
l'octet est maintenant dans T } et l'adresse 
incrementee ou decrementee selon son signe. 


PETOX : Retourne en X le contenu du compteur 
de programme. 


XTOPC : Ecrit une adresse dans le compteur 
de programme. 


DBYTES 3: Calcule la différence en octets 
entre deux adresses stockees en X et Y. 


PC+ 3 incré ente l'adresse en Y du nombre 


d'octets donne en x. 
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FEEKKR et POKER : Analogues a PEEKB et POKEB. 
Ces fonctions opèrent sur les contanus de 
tout un registre ( STOrs at RsCall non 
normalisant ). Ces deux fonctions sont 
fournies pour une copie rapidæ de blocs de 
registres complets entre Un emplacemant de 
KAM et un autre ( par exemple 5 duplication 
d'un fichier en X-MEMORY ). 


Cat ensemble ds fonctions sst compléts Dar 
des fonctions d'Entrée / ,sortiæ appropriees 
at par les fonctions Boolæiennes citées plus 
loin. 


Quelques autres fonctions utilitaires seront 
offertes : 


PLENG + Catte fonction ( non programmable ) 
invite à fournir un nom de programme et 
affiche sa longueur æen nombre d'’octets. 


ABSP ss Version programmable de Aa “flëêcha à 
gaucha“ ALPHA. 


CLA- : Supprine les caractères de droite du 
registre ALPHA jusqu’à ce que L'on atteigna 
un espace. 


BAVEBX t Sauvegarde en XF/M 1æ tampon dont 
1/1D correspond à la valeur stockée an X. 


GETB : Rappelle læ tampon sauvegardé. 


SAVEK : GSauvagarde les informations 
d'affectation de touches en XF/M. 


GETK + Rappellæ las affectations de touche 
aprés avoir éffacé les anciennes. 


MERGEK s: Fusionne les affectations da touche 
contenues dans le fichier par dessus les 
affectations existantes. 


SLFCHK 3 Effectue un autotest des RDMs HP-41 
(y compris la ROM commutée a la page 5 dy 
des boitiers RAM ( non destructif ), du 
beeper et de l‘’afficheur. 


FONCTIONS Mathématiques 


Cet ansemble de fonctions n'est pas encore 
terminé. Nous y travaillons, ce qui signifie 
que tous les details de fonctionnement ne 
sont pas définitifs. Nous donnerons ici une 
vue d'ensemble de ce que vous pouvez 
attendre de la ROM — Nous pensons que cela 
ne sonne pas mal du tout ... 3 


imaginez un tableau quelconque à une ou deux 
dimensions. I1 peut contenir des données 
numeriques — c'est alors un vecteur ou une 
matrice — ou des données aiphanuaëeriques = 
c'est alors un bloc. Ce bloc, une fois cree 
avec les fonctions approprieses de la ROM, 
peut résider soit en RAM principale, soit en 
RAM XF/M. Le module CED fournira toutes les 
fonctions nécéssaires pour travailler sur 
ces tableaux. Eeci signifie des opérations 
arithmetiques sur les matrices, échange ou 
copie de colonnes, de lignes ou de 
sous-tableaux, d'un tabiæeau ä, un autre, 
auitiplication de vacteurs, opérations sur 
les lignes et les colonnes ( élément max. 
normes ) ætc ... Bien sûr, tout ceci est 
supporte par le nouvel EMDIR qui décodera 
correctement lies types de fichiers. En 
outre, on fournira quelques rautines 
speciales d'entrée et de sortie de tablaau. 








D’autres fonctions mathématiques seront : 


RNDM ? C'est un générateur de nombres 
alæatoires. Vous pouvez charger une semence 
en utilisant la fonction SEED. ou bien le 
calculateur construira une semence a partir 
de quelque information de statu interne. La 
semence est stockée dans un tampon d'1/0. 


BOOLÉIENNES : Cet ensemble de 
fonctions n'est pas encore terminé. À 
nouveau, nous ne voulons pas donner trop 
d'informations préliminaires. Bornons nous à 
dire qu'elles compiätent les possibilités 
des fonctions de manipulation d'octets ... 


FONCTIONS 


FONCTIONS d’Entrée/Sortie 


Cet ensemble de fonctions aide le 
programmeur ä implanter facilement une 
interface Utilisateur / Lagiciel amicale. 
Les raisons pour lesguelles nous mettons ces 
choses dans la ROM sont les suivantes : 


La vérification qu’une entrée est légale, 
combinée avec un message d'invite approprié, 
est souvent consommatrice de temps de calcul 
et d’espace RAM Mais les facteurs temps 
d’exécution et taille programme sont trés 


souvent limitatifs. de sorte que de 
nombreuses applications manquent, soit de 
contrôles d'entree, soit de massages 


d'invite adéquats, et même des deux. Ceci va 
changer avec l'arrivée du module CCD ! 
Plusieurs fonctions d'invite font tout le 
travail pour vous. Voici quelques exemples 1: 


KEY? 1 Ecrivez 
registre ALFHA et 


"PRESS KEY YN" dans le 

exécutez KEY?. Regardez 
l'afficheur. Vous voyez x "PRESS KEY Y:N". 
Seules les touches YŸ ou N sont maintenant 
actives. L'appui sur Y ou N pousse un i ou 
un 2 sur la pile, respectivement. Bi le 
registre ALPHA est vide, "HIT ANY KEY" sera 
affiche, et l'appui sur n'importe quelle 
touche raménera son code de touche. 


INPUT : Affiche le registre ALFHA et stoppe 
un programme en cours d'execution, attendant 
une entrée numerique. L’appui sur R/S se 
traduit par les opérations suivantes : 


— S'il n'y à pas eu d'entrée, une valeur par 
défaut vient du registre pointé par REG@0. 


— La Légalite de la valeur introduite est 
verifiee en testant si REGD1 <= X <= REG92, 


— Si le test est faux, l'invite est répétée 
en affichant d’abord les limites de l'entrée 
et ensuite l'invite ALPHA. 


— Si ce test est vrai, X est stocké dans 1e 
registre pointe par REGDG et une instruction 
1SG est executee sur REGDD, 


- Une fois qu’une entrée légale a eu lieu, 
l'execution du programme continue avec la 
ligne de programme suivante. 


INPUTI 5 Trés voisine de INPUT, sauf qu’elle 
n'accepte que les entréeséntieres. 


Plusieurs routines de Fformattage de SORTIE 
sont en cours d'achèvement. Elles seront 
compatibles avec toute les imprimantes 
disponibles pour le svsteme HPF-41 — y 


compris les peripheriques IL. 





INREC : Concatène au fichier texte courant, 
sous forme d’un enregistrement, une chaine 
ASCII Venant de la boucle HPIL, 


INRECX 1 identique à INREC, mais n’accepta 
que le nombre d'octets spécifié en X. 


OUTREC : Envoie l’anragistrament courant à 
l'appareil primaire de La boucle HPIL. 


ACREC x Accumule 1‘’enregistrement courant 
dans le tampon de l‘’imprimante ( ne supprime 
pas le bit da gauche des codes de contrôle 
de l'imprimante «et fonctionne admirablemaent 
bien avec l'imprimante HP 82143 ). 


Voici donc - trés brievement bien sur — ca 
que nous voulions vous dire concernant notre 
ROM. De nombreuses personnes travaiilent en 
ce moment sur le microcode, et nous avons vu 
des réalisations interessantes dans ce 
domaine. Mais, / notræ avis, il subsiste 
quelques inconvénients trés importants dans 
la pratique du microcode s Les boitiars da 
RAM et d'EPROM sont chers ou volumineux, ou 
les deux. Trés peu de gens pauvaent utiliser 
la meme Version d'un module, ce qui les 
empêche de rédiger du logiciel en vue d'une 
large diffusion. Le progres que représente 
le module CCD va changer cela. Ici, nous 
offrons un snsemble complet de fonctions 
d'usage courant et faciles à utiliser, 
compatible avec toutes les versions de la 
calculatrice HP-41 C Sauf les toutes 
premieres HP-41 dotees d'une ROM 6@ en 
revision °D°, pour lesquelles les nouvelles 
possibilités des fonctions ASN, CAT et XEQ 
ne sont pas accessibles ) et tous ses 


nodules enfichables et périphériques. Il 
donnera à votre calculatrice une 
augmentation importante de sa puissance de 


calcui, et même beaucoup Pius si vous 
étendez vatre systeme HP-41. Déja commande à 
plusieurs centaines d’exemplaires, ce module 
deviendra une extension standard de votre 
calculatrice, au même titre que las modules 
XF/M. Nous sommes heureux d'annoncer a tous 
les nenjes trangers qu'ils peuvent 
commander ce module au prix de souscription 
spécial de 295 DH ( Marks Allemands ). La 
livraison des ROMs débutera en octobre de 
cette annee. Le prix comprend une ROM, un 
overlay de clavier, un guide de réference 
rapide, et un manuel en anglais. Un membre 
PPC peut commander un maximum de deux ROhs. 


Pour la commande, veuillez adresser un 
chèque tire, en monnaie Allemande, sur une 
banque Allemande ( de preférence la “DEUTSCH 
BANK AG. Colagne“ ), à l’ordre de 3: 


W&W, DR.W.BALTES und W.KOETZ 
Pastfach 602133 

D 5069 Bergisch Gladhach 2 
République Fédérale d'Allemagne. 


Tel 1: 19 / (49)2202-85068 
ou : 19 / (49) 22902-82026 


Ecrivez vos nom et adresse LISIBLEMENT. 

Une autre possibilite pour commander le 
nodule consiste à virer ‘argent à notre 
compte-courant postal 8 


Dr.W.BALTES und KOETZ 
2260 Bergisch Gladhach 2 
Compte-courant postal : 
4498 97-594 ( Cologne ). 
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LE PETIT THEATRE DES MICROCODES: 


(Pierre ANTOINE) 


LLIST listage des lignes de texte (Frédéric POUPON) 
Editeur de texte (Laurent JOLIA-FERRIER) 


Pas moins de 1,5 Ko pour l'éditeur de texte: époustouflant ! 


Voir aussi le descriptif de la CCD ROM, traduit par André OISEL. 


FONCTION RAND 


Voici un generateur de nombres aleatoires en microcode. 
11 n'est pas tres original puisqu'il utilise le traditionne! 
RCL 00 9821 % 0,211327 + FRC STO 00 . 


T1 utilise un registre dans le X-Fonctions ,a l'adresse 
OBD.I1 faut creer un fichier de un registre et il faut que 
ce soit le premier en memoire.On peut d'ailleurs creer un fichier 
DATA plus long,tous les registres restent accessibles par les 
fonctions usuelles et ils ne sont pas perturbes par RAND,sauf 
le premier registre du fichier. 


Le generateur tire un entier entre 1 et ia valeur donnee 
en X.Le resultat est egalement en X,les autres registres de la 
pile ne sont pas modifies.En enlevant certaines parties du 
programme,RAND peut donner un nombre decimail,un nombre entre 
D et X,4 et X... 


PIERRE ANTOINE P61 T384 
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À 

R 
SETDEC 
LDI 
CON 
DADD=C 
C=DATA 
AC EX 
C=0 
PT= 

LC 

LC 

LC 

LC 


D 


wW 
W 
Î 
è 
1 
{ 
3 
2 
7 
X 
x 


e 
œ 
o 
= 


W 
wW 
PT= 18 


LC 1 
GOSUB 1807 


REGN=C 3 (X) 
RTN 


X RAPPEL DU NOMBRE ALEATOIRE 
REGISTRE 0BD 


% MULTIPLICATION PAR 9821 
184D:ROUTINE C=A.C 


x ADDITION + 0,211327 
1807:ROUTINE C=A+C 


PARTIE FRACTIONNAIRE DE C 
STOCKAGE EN 0BD 
MULTIPLICATION PAR X 


PARTIE ENTIERE DE C 


AJOUTER i À C 


STOCKER LE RESULTAT DANS X 
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Chers amis, 


Je ne sais pas si vous 
êtes come moi, mais chaque 
fois que je désire passer un 
prograsee dans le journal, il y 
a une chose qui se rebute: la 
mauvaise traduction des lignes 
de texte par les ispriaantes, 
quelles qu’elles soient. J'ai 
donc fait ce progranse pour 4f: 
le listeur de lignes de texte. 


Partant d’un progrange en 
mécoire étendue, il  décode 
toutes les lignes de texte et 
fournit Les codes déciaaux à 
entrer. En voici tout de suite 
le listage et, du fait de la 
présence de quelques lignes 
synthétiques, un exenple 
d’éxecution: 


O1LBL "LLIST" 
62 FIX 0 
03 CF 29 
047 

05 PSIZE 
06 "L" 

07 EMDIR 
08 CLD 

09 CRFLAS 
10 *P* 

1 RCLPTA 
123 

3 - 

{4 STD 02 
1555" 
{BRL TE 
{7 "ss 
I8 REL L 
IX c 
20 RCL 00 
21 STD I 
22 * ABCDE" 
235 16) 1 
24 STD \ 
25 " AB" 
28 XCD \ 
27 510 00 
28 1CY 
29 810 c 
30 CLX 
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31 STD 00 
32 CF 19 
33 STD 04 
JALBL 40 
33 REL 00 
3h XER 30 
37 STD 05 
38 CF 10 
39 240 

aoû XC=Y? 
41 5F 10 
42 XCN 
43 XEB 50 
44 F67 19 
45 FC? 05 
44 156 04 
47 DEG 

48 CF 19 
49 F5? 05 
30 5F 19 
Ji =0? 
J2 DGSE 04 
J3 X=07? 
44 SIGN 
Ju F8? 10 
gb GTD bû 
57 57+ 00 
J8LEL 41 
99 RCL 02 
&ÿ REL 00 
ëi XCV? 
&2 GTD 40 
63 "L* 

b4 0 

b5 SEEKPTA 
bë 5F 2i 
&JLBL 09 
68 SF 25 
49 GETREC 
70 F6? 25 
T1 AVIEN 
72 F67 25 
73 GTD 09 
74 "FIN" 
73 ASTO X 
76 STEP 
TILBL 4 
78 570 05 
79 CF 19 
80 “L" 

8i FLSIZE 
82 ARCL 64 
BE 
84 APPREC 
85 P* 

B& FLSIZE 
87LBL 07 


BB RCL 00 
89 KEG 30 
90 "L" 

91 FLSIZE 
92 CLA 

93 RDN 

94 ARCL À 
95 * ï. 
9 APPCHR 
97 "P" 

98 FLSIZE 
pi 

100 5T+ 00 
10 DGE 05 
102 GTO 07 
103 TD 41 
104LBL 30 
105 , 

106 XF 
107 REN 
108 X=07? 
107 RTN 
110 4 

111 X2Y? 
112 5F 00 
113 SIGN 
114 F7 00 
115 RTN 
lé CLYX 
117 29 

18 1)? 
119 SF 05 
120 =? 
121 GTD 28 
122 1 

123 + 

124 X=Y? 
129 670 28 
124 CLX 
127 144 
128 X2Y? 
129 5F 02 
130 SIGN 
131 F57C 02 
132 RTN 
133 CLX 
134 176 
135 1)? 
136 5F 02 
137 F5? 02 
138 2 

139 F67C 02 
140 RTN 
141 ELX 
142 192 
143 X2Y7 
144 SF O1 





145 F5? Of 
146 SF 04 
147 F5? O1! 
148 2 

149 F57 01 
150 RTN 
151 CLX 
152 206 
153 X2V? 
154 6T0 5i 
15 X=Y7 
156 5F 02 
157 F5? 02 
158 2 

159 F9? 02 
160 RTN 
161 ELX 
162 207 
143 X=Y? 
164 5F 00 
145 CLX 
166 2 

167 F5? 00 
168 RTK 
169 CLI 
170 223 
171 XCY? 
172 6F 03 
173 RDN 
174 240 
175 X2Y? 
176 5F O1 
177 - 

{78 i 

179 + 

186 F5? O1 
181 3 

182 RTN 
183LEL 28 
184 REL 00 
185 1 

184 + 

{87 KEB 30 
188 238 
189 - 

190 RTN 
191LBL 61 
{92 REL 00 
193 2 

194 + 

195 XEG 30 
196 240 
197 X<Y? 
198 GT 5i 
199 3 

260 RTN 
201LBL 51 


202 - 

203 5 

204 + 

205 RTN 
206LBL 30 
207 CLA- — 
208 SDL — 
209 7 

210 / 

214 INT 
242 SEEKPT 
253 GETX 
214 KO TE 
215 7 

216 MOD 
217 07? 
218 XE8 03 
219 570 \ 
220 " * 
221 X6) \ 
222 50 LC 
223 ATUX 
224 RTN 
223LBL 03 
226" * 
227 DSE X 
228 670 03 
229 RTN 
230 .END. 


Lé: 241,76, 

LI0: 241,80, 

L15: 245,32,0,0,0,0, 
Li7: 243,11,224,1, 

L22: 246,127,65,68, 47, 48 
167 
LS: 243,127,65,68, 
Lé3: 241,78, 

L74: 243,70,73,78, 
LRO: 241,78, 

LA3: 243,127,58,32, 
LES: 241,80, 

L90: 241,76, 

LAS: 242,127,44, 
L97: 241,80, 

L220: 242,127,0, 
L226: 242,127,0, 


Quelques ncts maintenant 
à propos de l’utilisation: 


Vider la aéaoire étendue, 
sauver Île prograsse à étudier 
sous Je nom de fichier ‘P*, 
Faire XEB LLIST et attendre. si 


une iaprisante est connectée, 
vous aurez le résultat noir sur 
blanc, sinon tapez R/5 après 
chaque ligne. C'est aussi 
sinple que cela. 


Si vous vous aausez à 
décortiquer ce prograshe, vous 
vous rendrez conpte que 5o0n 
architecture interne ressesble 
beaucoup à celle de "COM", 
c’est normal, les deux 
proogramues datent de la ane 
épaque et utilisent tous deux 
des routines de lecture d’un 
octet et de calcul de la 
longueur d’une instruction. 


La routine de calcul de 
la longueur d’une instruction 
est située à partir du label 
50, Une fonction . PEEK est 
iapléaentée au label 30. Les 
résultats sont enregistrés 
teaporairement dans le fichier 
ascii "L°, 


Voila, #aintenant vous 
n'avez plus aucune raison de 
garder Vos programñes pour 
vous, On veut les voir 
rapidement dans JPC ! 


C'est tout pour cette 
fois ci. Au plaisir de vous 
lire! 


Frédéric POUPON (#39). 
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EDITEUR DE TEXTE SUR HP-41 


INTRODUCTION: 

L'éditeur est composé des programmes suivants: AB, AP, BO, CA, CH, CL, CR 
DO, ED, FI, HE, IN, KI, OF, PR, PU, RE, TO, UP, WH, DISPLAY, SYSTEM, 
AP+IN. SYSTEM est un analyseur syntaxique; DISPLAY affiche les messages; 
les autres programmes correspondent aux différentes fonctions. 


DONNEES TECHNIQUES : 
L'éditeur fait un peu moins de 1,5 Ko et réclame un SIZE de 74. Le SIZE 


peut être ramené à 39, mais les développements ultérieurs en seront 
réduits. Je reste à la disposition des personnes intéressées. 


DEFINITIONS ET CONVENTIONS: 

C ] signifie que les éléments entre crochets peuvent être omis; ils 
prennent alors la valeur par défaut. 

P représente un paramètre 

Ss représente un séparateur 

C représente un couple de la forme Ps 

alpha représente une chaîne de caractères. La valeur ASCII de chacun est 
comprise entre O0 et 96 inclus. La valeur par défaut de alpha est une 
chaîne vide de longueur ©. 

nun représente un nombre entier. Chaque caractère composant num a une 
valeur ASCII comprise entre 16 et 25 inclus (chiffres O à 9), plus 

43 et 45 (signes + et -). La valeur par défaut de num est 1. 

numpos représente un nombre entier positif. Même valeur ASCII que 
précédemment sauf 45, 

asc représente une valeur ASCII. C'est un entier positif compris 
entre O et 255, 


STRUCTURE D'UNE COMMANDE: 

Important: TOUTE COMMANDE EST SAISIE EN MODE ALPHA. 

Toute commande 4 la forme: CCC ... C avec 12 fois C au maximum. 
Soit aussi: PsPsPs ... Ps avec 24 lettres au maximum. 

s peut prendre les valeurs suivantes: a (ASCII 97) , b (ASCII 98), 
c (ASCII 99). 

Si alors HP 41 considère 

s=a P=alpha 

Ss= P=num ou numpos 

Ss=C P=asc 


Exemples de C: 
88a chaîne de caractère "38" 


JOLIA-FERRIERa chaîne de caractères "JOLIA-FERRIER" 
38c valeur ASCII 38 (équivaut au caractère &) 
38b valeur numérique 


Exemples de commandes: 

EDaPHONEa séléction de PHONE comme fichier de travail 

CHaETa38c99b changement 99 fois de la chaîne "ET" en la chaîne de 
valeur ASCII 38, soit & 

EDaPHONE commande invalide car de la forme CP 

EDaPHONEb commande invalide car b = num , or PHONE est alpha 


es 


Dans ce qui suit, on peut remplacer alphaa par ascc à volonté. 
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COMMANDES DE L'EDITEUR DE TEXTE 


nano mn 


ABSOLUTE 

ABalnumposb] 

Positionnement sur la ligne de numéro numpos. Attention !!! La valeur par 
défaut de numpos est 1, ce qui correspond à la deuxième ligne d'un fichier. 


APPEND 

APalalphaafnumposb]] 

Ajout à la fin de la ligne courante de la chaîne alpha, numpos fois. Si 
alpha est omis, alors exécution de la commande AP+IN. 


BOTTOM 
BOa 
Positionnement sur la dernière ligne d'un fichier. 


CATALOG 
CAa 
Exécution de la fonction EMDIR du module XFonctions. 


CHANGE 
CHaalphaa[alpha]a [numposbl] 
Changement de la première chaîne alpha en la deuxième, numpos fois. 


CLEAR 
CLealphaa 
Effacement du contenu du fichier alpha et de son contenu seul. 


CREATE 
CRaalphaanumposb 
Création d'un fichier alpha de type ASCII et de taille numpos. 


DOWN 
DOa 
Positionnement sur la ligne suivant la ligne courante, 


EDIT 
EDealphaa 
Sélection du fichier alpha comme fichier de travail, 


FIND 
FIaalphaalnumposb] 
Recherche numpos fois de la chaîne alpha. 


HELP 
HEa 
Affichage du nom des fonctions disponibles. 


INPUT 

INalaiphaa[numposb]] 

Ajout après la ligne courante de numpos lignes constituées de alpha. Si alpha 
est omis, alors éxécution de La commande AP+IN,. 


KILL 

KIa[numposb] 

Destruction de la ligne courante et de numpos-1 lignes suivantes. Si la fin 
du fichier est atteinte, la ligne précédente devient la ligne courante. 


OFF 
OFa 
Fin du programme. 


n°17 page 13 





PRINT 
PRaf{numposb] 
Affichage de numpos lignes à partir de la ligne courante. 


PURGE 
PUaalphaa 
Destruction du fichier alpha de la mémoire étendue. 


RELATIVE 

REa[numb] 

Déplacement à la num-ième ligne précédente (num négatif), ou suivante 
(num positif). 


TOP 
TOa 
Positionnement sur la première ligne d'un fichier (numérotée 0). 


UP 
UPa 
Positionnement sur la ligne précédant la ligne courante. 


WHERE 
WHa 
retourne le numéro de ligne sur laquelle on est positionné. 


AP+IN 

Accès par APPEND ou INPUT. 

Si l'on frappe une chaîne alpha, elle est ajoutée à la suite de la ligne 
courante et devient la nouvelle ligne courante. 

Si l'on frappe +alpha, alpha est rajouté à la suite de la ligne courante. 
Si l'on frappe R/S, on retourne à SYSTEM. 


Laurent JOLIA-FERRIER 
10, square Jules Ferry 
95- Sannoiïis 


DIVERS 
Fonctions permettant le positionnement sur un fichier: EDIT 
Fonctions nécessitant un positionnement pour opérer: 


ABSOLUTE, APPEND, BOTTOM, CHANGE, DOWN, FIND, INPUT, KILL, PRINT, 
RELATIVE, TOP, UP, WHERE, AP+IN. 


Fonctions faisant perdre le positionnement: 
CATALOG, CLEAR, CREATE, PURGE. 


Autres fonctions: 
HELP, OFF. 


Ligne synthétique de SYSTEM: 
247, O0, O, O, 40, O, 128, 128 


Ligne synthétique de OFF: 
247, 0, O, O, 44, 4, 128, O 
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MESSAGES D'ERREURS DE L'EDITEUR DE TEXTE 


OK 

La commande précédente a été correctement exécutée. 

SYSTEM ERROR 

La commande ne respecte pas les règles de syntaxe ou la commande n'existe 
pas ou le séparateur a un code ASCII supérieur à 99. 

CHECK X MEM 

Plus de place dans la mémoire étendue ou fichier déjà existant (fonction 
CREATE). 

EDIT À FILE 

I1 n'y a pas (plus) de positionnement sur un fichier; faire EDIT. 

NO SUCH FILE 

Le fichier concerné par la commande n'existe pas. 

NO SUCH LINE 

La ligne concernée par la commande n'existe pas. 

FILE TOP 

Le programme est déjà positionné sur la ligne O du fichier (début). 
FILE BOTTOM 

Le programme est déjà positionné sur la dernière ligne du fichier. 

FILE FULL 

Le fichier est plein; il se peut qu'une partie seulement de l'insertion 
réclamée ait été faite; le vérifier. 


CARTE DES DIFFERENTS REGISTRES 


23: Commande éclatée lettre par lettre 
71: Commande éclatée paramètre par paramètre 
: Pointeur vers les registres 00 à 23 dans SYSTEM. 
Ligne courante avant exécution d'une commande dans les autres programmes 
: Pointeur vers les registres 24 à 71 dans SYSTEM. 
Ligne courante dans les autres programmes. 
Pointeur vers les registres 00 à 23 dans SYSTEM. 


MESSAGES ET DRAPEAUX ASSOCIES 


OK 

SYSTEM ERROR 
CHECK X MEM 
EDIT A FILE 
NO SUCH FILE 
NO SUCH LINE 
FILE TOP 
FILE BOTTOM 
FILE FULL 


© OhOkhkOMkMOMRO 
BB OMR OOHKHOO 
D Oh RH OOOO 
OU HOOOCOOOOOO 
$ ©oOoOOCoOoOOoOOOCOOCO 
nn ODTOOOOoOCOO 
DO OOOO0O0OOOoO 
NN O0O0OO0O0OOOCOO 

®  O O1 BB © D HO 
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OiLEL "PU" 

CF O6 ARCL 29 ARCL 29 
SKRCL 30 ARCL 31 FURFEL 
FS? 25 RTN 4 X£€2F 
END 


OiLEL ‘WH° 
FCY O6 GTO 00 ROLFT 
"LINE " ARCL X PSE 
KTN 

OGLHL O0 
5 X2:F END 


OILBL °FK° 
FC? 06 GTO OZ KRELFT 
STO 74 

O8GLEL 00 
GETREC FCF 5 GTO ©2 
PSE FS% 17 GTO 00 
DSE 26 GTO Ô0 

ISLEL O1 
RCL 72 SEEKFT KTN 


ISLEL 02? 
SF 25 7 X25F GTO 01 


S24LHL OZ 
5 XÈ2F END 


PRF "FI" 


GiLEL "FI" 
FE? 08 GTO 04 KEOLPY 
STO 72% 

OGSLEL 00 
ARCL 269 AKCL 29 

BRCL 20 AREL 31 FOSFL 
X207 GTO 03 INT 

FLINE " ARCL X PSE 
CLA DSE 32 GTO © 


SiLEAL Qi 
RCL 72 SEEFRFT KTH 


2aLEL Of 

E + SEEKFT FSY %5 
GTCO 00 SF 25 

SELEL OZ 

7 RESF GTD 01 
ZOLEL O4 

2 X23F END 


OLLEL "CL" 

CF 08 ARCL 26 ARCL 25 
ARCL 0 ARCL 31 CLFL 
FS? ES KTN SF £5 4 
X&3F END 


OiLEL "EI" 

FC? 08 GTO 03 RCLFT 
STO 72 

O6LEL 00 
DELREC FC? 25 GTO Of 
DSE 38 GTO 00 

1PLEL O1 
RCL 72 SEEKPT FS7 25 
RTN SF 25 E — 
SEEKFT RTN 

22LEL O2 
SF 25 7 XC+F GTO O1 


27LEL O3 
3 XS3F END 


OiLEL "In" 

FC? 08 GTOD 04 "Ooooo" 
ASTO Y CLA ARCL 79 
ARCL 29 ARCL 30 
BRCL 31 ASTO X X=v? 
GTO "AF+IN" ROLET 
SGTO 72 E + SEEKFT 
FS7 25 GTO O1 SF 25 


SPLEL 00 
SFPREC FC? GTO 
DSE 22 GTO GTO 


29LEL O1 

INSREC FC? 25 GTO 
DSE 32 GTO oi 
SSLEL 0Z 

RCL 72 SEEKFT KTN 


SFLEL OZ 
SF 25 8 X£%F GTO 02 


4SLEL 04 
3 XÈ5F END 


O1LHL "ED" 
CF O9 BRCL 26 AKCL #9 
ARCL 50 ARCL Si . 
SGEEEFTA FC? 25 GTO 00 
SF 09 KTN 

13LBL O0 
SF 25 4 X£:F END 


DILBE TO 

FC? 068 GTOG 00 CLX 
SEEEFT "TOF 0" PSE 
RTH 

OJLEL O0 

3 XE%F END 


O1LEL 
FC? 08 GTO O1 RELFT 
RCL 28 + X<07 E9 
GEEKFT F6? 25 GTO 00 
SF 25 5 X€2F RTN 

18LEL 00 
GETREC FSE FS7 17 
GTO O0 SEEKFT RTN 

2ELBL O1 
3 X€2F END 


O1LEL "DISFLAY" 
* XE5F GTO IND X 


OSLEL O0 
POE" KTH 
OBLEL O1 
SYSTEM ERROR" RIN 


11LRL OZ 
"CHECK X MEM" RTN 


14LHL O3 
"EDIT À FILE" RTN 


1/LEL 04 
"NO SUCH FILE" RTN 


SOLHL 05 
NO SUCH LINE" RTN 


SSLEL 06 

"FILE TOF'" KTH 
S6LEL 07 

PFILE BOTTOM" KRTN 


EFLEL 08 
"FILE FULL" KTN END 


QILEL "HE" 
"AESOLUTE" FSE 
CAFFEND'" PSE "ECTTON" 
PSE "CATALOG" FSE 
"CHANGE" PSE "CLEAR" 
FSE "CREATE" PSE 
PODONN" PSE "EDIT" FSE 
"FENDM PSE" HELP? POSE 
“ENPESCS PSE. "RILE" 
PSE OFF" PSE "FHRINT" 
PSE "FURGE" FSE 
PRELATIVE" PSE "TOF" 
PSE "UP PSE "WHERE" 
PSE END 
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O1LEL "DO" 

FC? 06 GTO O1 ROLPT 
E + SEEFFT FS? 25 
GTO 00 SF 25 7 X23:F 

RTN 

LALHL O0 
GETREC PSE F5? 17 
GTO 00 SEEEFT KTN 


ZILEL O1 
5 XF END 


1 
“AE 
40 EYTES 
< BF 
72 EYTES 
*AF+IN 
102 EYTES 
*EO 
EYTES 
‘CA 
BYTES 
*CH 
EYTES 
“bb 
EYTES 


EYTES 
BYTES 
EYTES 
BYTES 
149 EYTES 


EYTES 
“KI 
BYTES 
OF 
BYTES 
‘FR 
EYTES 
“PU 
EYTES 
RE 
EYTES 
“TD 
EYTES 
“ LIFE 
2 EYTES 
*WH 
29 EYTES 
“DISPLAY 
134 EYTES 
“SYSTEM 
180 BYTES 
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Dans le manuel du module HP-IL, page 39 
“exécution automatique des programmes", il est 
précisé que l'indicateur 11 permet un démar- 
rage automatique d'un programme rechargé à 
partir du clavier avec les instructions 

READP, READSUB, READA. 

Alors qu'avec la première et la troisième solu- 
tion, cela fonctionne correctement, le program- 
me refuse le démarrage automatique quand j'uti- 
lise "READSUB", et je retrouve le pointeur sur 
un 01 END qui vient de je ne sais où. 


Par ailleurs, j'ai beaucoup de problèmes pour 
générer des chaînes de caractères avec le BG. 
L'exemple ci-joint devrait me permettre de 
faire une chaîne dont les codes sont 247 11 224 
1 105 11 224 176. La chaîne générée ne tient 
pas compte des deux derniers caractères. Et 
comment peut-on faire pour générer une chaîne 
du genre 246 250 12 8 15 192 255 ? (programmes 
P et PP de Robert Sdwartz parus dans JPC de 
septembre }). 


D'avance merci 


Denis CASTELAIN (P 56) 


Réponse du dr JPC: 


En ce qui concerne l'éxécution automatique, il 
est préférable de ne pas exécuter READSUB. En 
effet, comme ses consoeurs du lecteur de cartes 
et du module XFonctions, READSUB a pour effet 
de lire le programme et de le recopier dans 
l'optique d'être utilisé comme sous-programme. 
A cet effet, il place un END après le dernier 
programme en mémoire, pour ne pas l'écraser, 
Si ce dernier programme est déjà terminé par 
un END, c'est tant pis pour la beauté du 
catalogue ! Il y aura des END partout. Dans 
l'optique d'une éxécution automatique, par 

un programme principal appelant des sous-pro- 
grammes à la chaîne, le dernier de ces 
sous-programmes n'a pas de END à la fin. 


Pour ce qui est des chaînes synthétiques, 

le BG me semble être un Buldozer peu adapté 

à ce genre de travail, tout en finesse. 

HP, dans son infinie bonté, nous a fourni 

le MU. Il est idéal pour ce genre de chaîne, 
ne dépassant pas 7 Caractères. Pour plus de 
détails, voir l'OI n° 27. Si suffisamment de 
personnes sont interessées, je ferai peut-être 
un article dessus dans un prochain numéro. 


À bientôt... 
Pierre DAVID 





Pour vous qui possédez, comme moi, une HP 15C, voici deux 
formules permettant de réaliser les fonctions "in(1+x)" et 


‘e*_1" de la HP 41C: 


in (1+x)= 2th-1 | x |] et 
2+Xx 


e*-1 = re 
2 


= (een |x] 
2 


Exemples: 
Pour x= 1,23456789.10-8 , la valeur exacte (x) est 
2 

1,234567882.107 8 
Ma formule fournit: 1,234567883.1078 , alors que In(1+x) sur 
HP 15C donne: 1,199999993. 
Pour e*-1, c'est aussi excellent. 

Amicalement, 


Daniel SAADA 
15 rue Le Nôtre 
78120 Rambouillet 


Note de l'éditeur: 
th-1l signifie Argument Tangente Hyperbolique, et non 
un sur tangente hyperbolique ... 





HP-71 


Beaucoup de choses nouvelles ce mois-ci: 

D'abord la nouvelle présentation qui, nous l'espérons, vous plaira, 
Ensuite, l'ouverture de la sous-rubrique Forth, en attendant 
l'Assembleur... et surtout la quantité et la qualité des programmes. 
Débutants ou programmeurs avertis: à vos claviers ! 


POLYCOPY (Pierre DAVID) 

: CHARSET (Michel MARTINET) 

: Routines graphiques (Jean-Pierre BONDU) 

: DATE (Pierre DAVID) 

: MATRICE (Laurent ISTRIA) 
DESSIL (Jean-Pierre BONDU) 
Editeur de cassette (Michel MARTINET) 

: Gestion de L'HP-IL (Pierre DAVID) 


Les programmes, du fait de la nouvelle présentation, sont listés à 

la fin des articles, c'est à dire: 

Pour le FORTH, en page 22 

Pour le BASIC, à patir de la page 32. 

Vous trouverez un exemple d'exécution du programme CHARSET à la page 31. 
Il contient les caractères accentués utilisés par la HP82905B, celle 
qui "écrit" le JPC. Utilisez donc ces caractères pour vos envois 
d'articles. 

Au plaïsir de vous lire... 
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COURSE DE VOITURE, pour HP 71B + aodule Forth 


En cospléeent du banc 
d'essai du module 
Forth/Asseableur paru 
le sois dernier, je 
VOUS propose nainte- 
nant un ‘sot" Forth : 
la course de voiture. 


C’est la traduction du 
programre Basic paru 
dans Je JPC de gai 
1984 (numéro 14), Il 
était intéressant de 
confronter les deux 
versions, sur le plan 
de la rapidité et de 
la souplesse d’utili- 
sation, ais aussi sur 
le plan de la facilité 
de programgation. 

Pour ce qui est de la 
rapidité, j'ai appris 
que le record (en 
Basic} était d'environ 
60 secondes au niveau 
difficile, de recon- 
nais d’ailleurs que je 
suis largeaent battu ! 
À la dernière réunion, 
la version Farth cir- 
culait, et le record 
s’est établi aux alen- 
tours de 10 secondes . 
de vous laisse juger, 
En frécisant que son 
record personnel est 
d'environ À seconde ! 
D'autre part, pour ce 
qui est de la facilité 
de prograsmation, je 
vous assure que Forth 
est plus agréable que 
Basic ! Avec en plus 
le plaisir de faire de 
la programmation 
structurée... 

Maïs trève de discours 
voyons l’utilisation ! 


I est difficile de 
faire plus simple: ta- 
pez un nonbre entre Ÿ 
et 1FFFF (si vous étes 
en hexadécimal), n’ou- 
bliez pas l’espace, et 
tapez COURSE. 
Accrochez-vous, 
parti ! 


c'est 


_— —— _— mm me me me me me mue me em ne nn mes cum me mue = mn me De en De ms em mn me em mue mu mn me mn mn mn me me me mes me me = = = 


Appuyez sur [1 ou [81 
pour tourner à gauche, 
D] ou [/] pour tour- 
ner à droite, Et ta- 
chez de rester le plus 
Iongteaps possible sur 
cette dannée route 
qui n'arrête pas de 
tourner ! 


Quelques rekarques 
saintenant sur le pro- 
granre Iui-néne: core 
vous pouvez le consta- 
ter, j’ai essayé de le 
docusenter au &axiaun, 
L'algorithee est bien 
visible dans le act 
FCOURGE" . Les mots 
précédents ne sont que 
des “SOUS-progranees", 
dont certains n’ont 
pas été intégrés dans 
le corps du aot COURSE 
pour raison de lisibi- 
lité, 

Le Forth 83 offre des 
possibilités de trai- 
tenent de chaînes de 
caractères : je ne Re 
suis pas privé de les 
utiliser ! Pour ceux 
qui ne les connaissent 
pas, une chaîne est 
représentée dans la 
pile par son adresse, 
et le nosbre de carac- 
tères qui la compose, 
51 ( analogie avec ! ) 
stocke Ja chaîne à 
l'adresse spécifiée 
sur le sommet de la 
pile. NULLS renvoie la 
chaîne nulle , CHR$ 
stocke dans le PAD une 
chaîne d’un seul ca- 
ractère dont le code 
est sur le  somret 
de la pile. Gb est 
la concaténation à 
droite. 

Quelques notes, sain- 
tenant, sur le généra- 
teur de nombres "aléa- 
toires" : le principe 
est siaple: la néaoire 
norte qui contient le 
Basic contient aussi 


151072 quartets dont 
les valeurs sont ie- 
prévisibles ! Il suf- 
fit de stocker une 
adresse, qui sera 
changée à chaque appel 
de RND, Cette adresse 
est placée dans la va- 
riable RANDOMIZE. 

Four ce qui est de la 
route, on affiche le 
caractère 128 (arbre) 
22 fois, puis on passe 
en Basic pour changer 
la fenêtre d'affichage 
entre 9 et 13, 

Pour la aise en place 
du jeu de caractères 
secondaire, j'utilise 
une table de valeurs, 
qui n’est rien d'autre 
qu'une suite de cons- 
tantes mises dans la 
pile. FORTH$ retourne 
à Basic la chaîne 
placée au sogaet de la 
pile, 

Les adresses 2F946, et 
2F948 codent le DELAY. 
Pour connaître la va- 
leur à mettre, aulti- 
pliez la durée par 32, 
Ca se perset de vider 
le taspon de touches, 


Vous pourrez consta- 
ter, en utilisant ce 
programte, QUE Si vous 
appuyez trop rapide- 
“ent sur les touches, 
une certaine inertie 
se fera sentir. Cela 
est dû à l'absence de 
fonction KEYDOWN en 
Forth. 


Dans la catégorie des 
jeux bien débiles, ce- 
lui-ci tient bien sa 
place, Je ne pense pas 
que vous vous éleverez 
intellectuellest, mais 
j'éspère que, grâce à 
lui, vous passerez 
quelque bon aoment.,, 


& bientôt, 
Pierre DAVID 


JFC 
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HP 74 + Forth : COURSE DE VOITURE 


DECIMAL 

12 STRING JCAR 

5 STRING ROUTE 
VARIABLE VOITURE 
VARIABLE RANDONIZE 


{ toutes les constantes sont exprisées en déciaal) 

{ variable chaîne de {2 caractères: jeu de caractères secondaire) 
(3 caractères pour représenter la route, et la voiture) 

{ position de la voiture sur la route, entre 0 et 4) 

{ adresse pour le générateur de nosbres “aléatoires") 


CAR 
NULL$ JCAR 5! 
64 224 80 BO 224 &4 
0 14 51 255 31 14 
JEAR 12 0 
DO 
ROT CHR$ St 
LOOP 
SP! JCAR 
“ CHARSET FORTH$" BAGICX ; 


{ aise en place du jeu de caractères) 

{ la chaîne JCAR est initialisée à La chaîne nulle) 
{ codes des caractères 128) 

{ et 129) 

(boucle à éxécuter 12 fois: 2 caractères) 


{ on ajoute le code voulu) 


{ SP! efface la pile) 
{ on établit Le CHARSET à l’aide de JCAR et de BASICI: merci Hewlett !) 


5 INECRAN 


27 EMIT 49 EMIT 
27 EXIT 60 EMIT 
22 0 
DD 
128 EMIT 
LO0P 
“HINDOW9,13" BAGICX ; 


{ initialisation de l'écran) 

{ effacesent) 

{ extinction du curseur) 

{ pour les 22 caractères de l'affichage) 


{ placer un arbre) 


{ Merci Hewlett - bis !) 


* " ROUTE 5! 
CR 

{29 ROUTE DROP 
VOITURE € 

24 + C! 

ROUTE TYPE : 


{ affichage de la route, et de la voiture) 

{la chaîne ROUTE est initialisée à 5 espaces: rentrez donc & espaces) 
{retour chariot pour effacer la route précédente) 

{ dans la pile: 129, adresse de la route) 

{ position de la voiture) 

{on place 129 à l’adresse de la voiture dans la chaîne ROUTE) 

{ on affiche ROUTE) 


RHD 
RANDONIZE & 
DUP NE 
DUF 0= 
IF 

DAOP | 
THEN 
DUP 2R 
+ RANDOMIZE ! 
R> ; 


{ aése rôle qu’en Basic) 

{ adresse où on va chercher un quartet) 

{ on sauve cette adresse, et on prend le quartet) 
{on teste s’il est nul) 


{ si oui, on le rerplace par 1) 
{ on sauve cette valeur dans la pile de retours) 


{ nouvelle adresse, stockée dans RANDONIZE) 
{ récupération du quartet) 


AVTALER 
VOITURE € 
RND 
8 < 
IF 
i- 
ELSE 
i+ 
THEN 
VOITURE ! ; 


{ aouvesent aléatoire) 
{ la position de la voiture reste dans la pile) 


{ 30% pour La droite, 504 pour la gauche) 
{ à gauche) 
{ à droite) 


{ c’est la nouvelle position de la voiture) 
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: TOUCHE 

VOITURE & 

KEY 

CASE 
8 OF 1- ENDOF 
81 OF 1- ENDOF 
9 OF 1+ ENDOF 
47 OF 1+ ENDOF 
DROP MVTALEA VOITURE & 

ENDCASE 

VOITURE ! ; 


: COURSE 
RANDOMIZE ! 2STACK 
2 VOITURE ! 
CAR 
INECRAN 
" T=TIME" BASICX 
BEGIN 
AFF 
2TERNINAL 
IF 
TOUCHE 
ELSE 
HVTALER 
THEN 
VOITURE © DUF 
0€ SHAP 4 > OR 
UNTIL 
* WINDOWI" BASICX 
1 2F946 C! 
1 2F948 C! 
CR " TIME-T;" BAGICX 
ü 2F948 C! 
0 2F948 C! ; 


{ test de la touche pressée) 
{ position de la voiture) 

{ valeur de la touche) 

{ structure-géniale !} 

{ touche <-) 

{ touche 8) 

{ touche -}) 

{ touche /) 

{ sinon souvement aléatoire) 
{ sieple, non ?) 

{ c’est donc la nouvelle position de la voiture) 


{ toutes les constantes en hexadécinal) 


{ Le Not Principal, celui qu'on éxécute, qui fait cosprendre l‘algorithae !) 
{on initialise 1e générateur de nombre aléatoire, et erreur si pile vide) 

{ initialisation de la voiture) 

{ établisserent du jeu de caractères secondaire) 

{ initialisation de l'écran) 

{ stockage de l’heure) 

{ début de la boucle...) 

{ affichage de la route) 

{ teste si une touche est appuyée) 


{ si oui, test) 
{ si non, rouverent aléatoire) 


{ position de la voiture) 
{ si <0 où }4 alors on termine le jeu ici) 


{ on reset tout en place) 

{ =} DELAY40) 

{pour vider le taspon de 15 touches) 
{ affichage du score) 

{ on remet le DELAY à 6,0) 

{ voilà, c'est fini !) 





POLYCOPY 


Vu le nombre de HP 71 dans notre 


Club, il devenait urgent de 
créer un PrograBRe Pour 
transférer  siaultanéaent un 
prograane vers plusieurs 71. 
J'espère voir Ce  prograsae 
fonctionner dans toutes les 
réunions organisées par 
PPC-PARIS, 


Le noabre de HP 71 est 
quelconque (entre 2 et 930..,), 
donc en particulier, ce 
prograsge est valable pour 
passer des fichiers d'un 71 vers 
un seul autre. 

La boucle peut contenir aussi 
des isprisantes, des lecteurs de 
cassettes, de disquettes... 


L'utilisation est on ne peut 
plus simple: faîtes [RUN], puis 
entrez le nom des fichiers à 
envoyer. Tapez [END LINE] chaque 
fois. Pour terginer, frappez une 
dernière fois  CEND LINE), 
Attention cependant: faîtes 
RESTORE 10 si votre HP 71 est 
déclaré OFF 19, Ceci est valable 
pour tous les 71 de la boucle, 
aussi bien l'émetteur que les 
récepteurs. 


Gi il y a erreur dans 
l'introduction d’un fichier, le 
progrange l’ignore. 

Bi le fichier existe déjà dans 
la aénoire d’un des récepteurs, 
ou si celle-ci est insuffisante 
pour stocker le fichier, ce 
HP 71 émettra un signal sonore, 
mais les autres recevront guand 
aèce le fichier. 

Si le fichier n'existe pas dans 
la  néaoire de ]l’éretteur, 
l'ordre est ignoré, 


Pour toute erreur, un petit 
délai est nécessaire afin de 
préparer à nouveau les 
appareils. 


Principe: deux solutions étaient 


JPC 
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possibles, 

- Soit transférer successi venent 
le fichier à tous les HP 71 dans 
la boucle. Cette solution n°est 
pas envisageable pour un fichier 
un peu gros {plus d’un Ko), ou 
pour un bon nombre de 71. 

- Soit préparer tous les HP 74 à 
recevoir le fichier. La taille 
du fichier n’influe alors plus 
beaucoup sur le  teaps 
d'éxécution, J'ai donc appliqué 
cette séthode. 


Voilà, ce prograase occupe 909 
octets, Si l’application n’est 
pas ianédiate, il peut étre 
profitable de l’étudier car, 
croyez-aci, L’HP-IL n’est pas 
vrainent siaple ! 


À bientot... 
Pierre DAVID 


CHARSET 


Si vous désirez #anipuler votre 
jeu de caractères secondaire 
avec  Ssiaplicité, alors ce 
programme vous est destiné. Il 
vous peraet de maodifier un 
caractère (ou plus si besoin}, 
de l’effacer ou de l’impriger si 
vous disposez d’une imprisante 


large (132 colonnes, exesple HP 
829058). Vous pouvez 
séléctionner un jeu de 


caractères pari 
avez créés. 


CEUX QUE Vous 


Principe: 
Lors de 
prograñme 


l‘initialisation, le 
crée un fichier TEÂT 
de 768 caractères nuls 
(CHRS(O)), que vous pouvez 
sodifier à loisir, Vous rentrez 
un caractère en donnant les 


ses colonnes 
constitutives. Pour plus de 
détails, référez-vous au aanuel 
d'utilisation (à partir de la 
page 132). À la fin du 
prograane, ce jeu deviendra le 
jeu "actif" si celui-ci n’est 
pas entièresent nul, 


codes de 


Utilisation! 
Faîtes RUN, 
Le progranne affiche 
"Fichier 1 : pour 
l'introduction du non de 
fichier, Si le fichier n’existe 


pas, il est créé en affichant 
"Erreur 97: attendez”, 

Le programme affiche alors 
"CHR$(128)5 1-0". 

128 correspond au code du 
caractère, 


{ correspond à la presière 
colonne, et 0 est sa valeur. 

- Les touches [1 et [<] 
peraettent de se déplacer vers 
une autre colonne, 

- Les touches E[vl et [*] 
permettent de se déplacer vers 
un autre caractère {le nunéro de 
colonne ne change pas}. 

CEND LINEI duplique la colonne 
précédente. 

- [D] déplace vers un autre 
caractère dont il faudra 
indiquer le numéro, 

- [E] efface le caractère local, 
et déplace au suivant, 

- [1] laprise le jeu de 
caractères tel qu'il est listé 
dans l’exeaple joint. 

- EN] modifie le code de Ja 
colonne, et déplace le “curseur" 
à la colonne suivante, 

- [F1 fin: tersine le programe, 
et "active" le jeu secondaire, 
s’il n’est pas nul, 

Le jeu est sauvegardé dans un 
fichier TEXT, d'une longueur 
{fixe) de 772 octets. 


Heureuse Prograamation. 
Michel MARTINET, 


ROUTINES GRAPHIQUES 


Afin de coagencer la rédaction 
d’une bibliothèque conplète de 
Sous progrannes, je VOUS propose 


aujourd’hui trois petits essais 
à vocation essentiellement 
graphique. 


Le HP7IB peut en effet se 
constituer des bibliothèques de 
Sous programmes,  déaontrant 
ainsi que Son Basic n’est pas 
ridicule face à des langages 
tels que Pascal ou Fortran, pour 


lesquels ce genre de 
“bibliothèque” est chose 
courante. Vous êtes viverent 


invités à la conpléter, et à le 
faire savoir par l’internédiaire 
de JPC... 


Sous-progrante DTB: 

L'objet est de convertir du 
décisal en binaire. Entrée en N, 
sortie en N$, Par exenple, pour 
convertir 253 en binaire, puis 
fettre le résultat en H$, faîtes 
CALL DTB(255,H$), Ensuite, 
faîtes H$ pour l’afficher, 


Sous-programme PCLR et PGET: 


ls ont pour objet, 
respectivement, d'éteidire et 
d’alluer un point Sur 


l'afficheur graphique, l'origine 
se situant en bas à gauche. 


Vivesent l’assembleur ! 


Signalons pour les malheureux 
qui ne disposent pas encore du 
godule HP-IL qu'ils peuvent 
remplacer la fonction BIT par 
une fonction utilisateur: 
DEFFNTN, B)=INT(2#FF(N/2*(8+1))) 
voir JPC No 13 page 19, 
l’article de Fierre David. 


Voilà, la voie est ouverte, À 
vous de jouer ! 


Au plaisir de vous lire... 
Jean-Pierre BONDU, 


SSSR SESZSSSSSESS SES ITS EE 


DATE 


Pour tous ceux qui regrettent 
les fantastiques fonctions du 
rodule Horloge de la 41, et pour 
les autres, j'ai conçu ce sous 
pragramse qui fait l'équivalent 
de la fonction DO du module, À 
savoir: à partir d’une date 
donnée, trouver le jour de la 
seraine. Plus facile à dire qu’à 
faire: cela n'a pris au aoins 
une après-nidi ! 


L'utilisation est des plus 
sisples: cela se borne à un 
appel de sous progragre ! Par 
exesple, pour calculer le jour 
correspondant au 27 juillet 
1984, et Je settre dans la 
variable Y{: 

En utilisant DATEX: 

CALL DATEX (29,071984,Y1), 

En utilisant DÂTE : 

CALL DATE (29,7,1984,Y1), 

Vous remarquerez que le forgat 


d'entrée de la date est 
européen, D'autre part, Je 
noabre qui caractérise le jour 


de la senaine est sesklable à la 
4: 0 pour Disanche, 1 pour 
Lundi, ... 6 pour Samedi, Si la 
date n’est pas valide, le nombre 
1 est retourné, 


Le principe est déjà plus 
conplese., Tout algorithme de 
calcul de date doit 5e rapporter 
à une date fixe, primitivement 
connue, Le reste se calcule, 
sachant qu'il y a un cycle de 
400 ans et qu’à l’intérieur d’un 
siècle, il y a un cycle de 28 
ans (sauf la première année si 
elle n’est pas hissextile), Le 
but de ce sous prograëne est de 
réduire Je nosbre de boucles, 
qui ralentiseent l’éxécution, 
sans pour autant remplir la 
mésoire avec des données. Le 
coaprogis que j'ai trouvé me 
sesble plutôt bon, et tant pis 
pour a modestie. Le progranne 
connaît la date du prenier de 


chaque 1500, 1400, 1700 et 1800. 
Le ler danvier 1500 est une date 
sans signification puisque le 
calendrier grégorien est valable 
seulenent à partir du 15 Octobre 
1582, Cette date est néanaoins 
nécessaire pour calculer les 
dates entre Je 15 Octobre 1582 
et le 31 décesbre 1599, 

Une fois ces quatres premiers de 
l’an connus, on connaît tous les 


premiers janvier des années 
séculaires jusqu’en 4000 
environ, C'est la date où le 
calendrier grégorien devra 


rattraper une journée, 

À partir du presier janvier de 
l'année séculaire, on déternine 
ensuite l’année aodulo 28 1a 
plus proche (00, 28, 56 ou 84), 
On conpte alors le noabre de 
jours de la différence, puis le 
nombre de jours écoulés dans 
l'année, 

Si vous avez suivi jusqu'ici, je 
vous félicite, mais ce n’est pas 
finis: si l’année séculaire n'est 
pas bissextile, il faut rajouter 
un jour, car le cycle n’est pas 
parfait, Voilà, c’est fini pour 
le principe. Vous pouvez 
décortiquer le prograste en 
annee, 


Voilà, ce prograrme occupe 439 
octets dans la mésoire de votre 
RE  71B, Vivement un eodule 
Horloge pour cette fantastique 
nachine ! 


& hientst... 
Pierre DAVID, 


MATRICE 


près avoir acquis son HP 
71 et alors que je cherchais 


quelle pourrait en Étre son 
utlisation, une idée de 
JPFC 
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progragme ne vint, Lors de mon 
dernier passage à la Règle à 
Calcul, j'avais vu la ROM math 
du HP 75; une petite merveille 
pour ceux qui la connaissent, 


Une de ses grandes forces étant | 


le Otraitesent de patrices, 
Pourquoi alors ne pas donner au 
HP 71 ces possibilites ? 


Mattelant à cette idée au 
satin, je n’en sortais que le 
soir du lendesain après une nuit 
quasisent blanche. Mais, je 
pense que le résultat en valait 
la peine; car parti de 
l'intention de copier 
strictesent la RON du HP 75, je 
ae suis dit qu’il serait peut 
être plus avantageux de pouvoir 
utiliser une pile matricielle de 
hauteur infinie (la méroire 
seule limitant celle-là) ainsi 
que sur notre bonne vieille 41 
€, 
C’est alors que sortit tout 
droit de son cerveau diabolique 
ce progrange de traitenent de 
matrices. 


Les différentes opérations 
utilisables sont les suivantes: 
“Addition 

-Hultiplication 


Entrée de matrice 

-Poussée de satrice dans la pile 
{comparable à la fonction ENTER 
de la HF 410 

“Stockage de gatrice 

“Rappel de matrice 
-Triangularisation de matrice 
-Calcul du déterginent 

“Entrée de la gatrice identité 
“Multiplication d'ume ligne par 
une constante 
“Multiplication 
par une constante 
-Bddition du svltiple d’une 
colonne a une autre colonne 
“Addition du maultiple d’une 
ligne a une autre ligne 
-Hultiplication de #atrice par 
une constante 

-bétersination du naxigur et du 


d’une colonne 


ainiqus {en valeur absolue ou 
non) 
JPC n°17 page Z& 


! 
4 
f 
ï 
! 
{ 
t 
! 
t 
1 
1 
l 
1 
f 
1 
1 
1 
Î 
1 
Î 
4 
Î 
H 
l 
! 
ï 
# 
1 
F 
Î 
4 
$ 
ul 
$ 
1 
! 
1 
1 
{ 
t 
1 
1 
3 
1 
} 
! 
1 
ï 
t 
f 
1 
Î 
3 
ï 
ui 
L 
1 
: 
i 
t 
1 
! 
! 
1 
! 
Î 
! 
1 
t 
t 
! 
Î 
! 
1 
t 
; 
; 
$ 
4 
t 
f 
ï 
; 
t 
! 
t 
! 
f 
t 
1 
! 
{ 
; 
t 
! 
î 
! 
$ 
u 
! 
ï 
3 
3 
t 
1 
l 
} 
! 
1 
ï 
! 
Î 
1 
; 
1 
1 
t 
1 
1 
! 
1 
Î 


-Déroulerent des 3 dernières 
matrices entrées 

Edition d’une #atrice 
-Effacenent de la #atrice de 
travail 

Résolution de systène 
-Visualisation de la matrice de 
travail 


Mais passons maintenant au mode 
d'utilisation du progranae Après 
avoir entré le programme 
*NATRICE® (ou vous l’étre 
procuré à la programathèque) et 
le fichier *MATRKEYS’, faites: 
RUN 

Vous voyez apparaitre: 

Dis. Mat(l,C)? 

Entrez les disensions de la 
gatrice, dans l’ordre: ligne 
puis colonne, puis ENDLIME 

À L'affichage apparait alors: 
(0341,1)=7 qui signifie d'une 
part que la pile est videl@} et 
d'autre part que le HP 71 attend 
l’élésent de la prenière ligne, 
preaière colonne 

Continuer alors jusqu'à ce que 
le HP 71 affiche DK(1}, 
indiquant que l'opération est 
terainée et qu'il y a Î matrice 
dans la pile 


Four visualiser celle là, 
appuyez sur *V° {pour 
visualisation) 

Le HF 71 affiche alors les 
résultats sous la forne: 

EI, J)=N 

ou K représente le nombre 
d'éléments dans 3 matrice 
Ugnicin), 1 et J les numéros 


lignes et des colonnes, et N, le 
nosbre situé à la place 1,9 (à 
la fin le HP 71 affiche à 
nouveau DK(1)) 


Voyons aaintenant sur des 


exemples concrets comment 
s'utilisent es différentes 
opérations 


Entrons par exeaple la matrice 
suivante: 


r 
! 
1 

Î 

! 

! 

! 
! 
1 

t 

t 

l 

? 
t 
t 
! 
1 

t 

$ 
1 

! 

î 

$ 
! 
! 
t 
; 
î 
! 
i 
; 
1 
4 
t 
! 

t 

! 

E 

3 
Î 

f 
t 
y 
1 
1 
î 
1 
1 
! 
! 
; 
t 
t 
l 
L 
t 
; 

î 

1 
! 
! 
î 
! 
l 
! 
3 
1 
3 
1 
! 
! 
i 
t 
Î 
$ 
: 
} 
ï 
3 
3 
} 
t 
t 
! 
1 
} 
ï 
3 
1 
1 
! 
3 
E 
1 
t 
! 
1 
: 
; 
f 

; 
ui 
1 
} 
3 
t 
} 
Î 
} 
; 

! 
È 
; 
î 
: 
Î 
! 
3 
t 
î 
$ 
i 


13 7 

74 -2 

31 4 

Faites donc ’C’ pour effacer la 
matrice que vous venez d'entrer 
{je s'en doute un peu) 

vous voyez: OK{0) puis, faites 
?E’ (pour entrée de matrice) 
Vous voyez: (0)(1,11=? entrez 
dans l’ordre: { puis ENDLINE 
s'affiche alors:  (0)(1,2)=? 
entrez 3 et, continuez ainsi 
jusqu'a la fin 
en faisant 
s'afficher: 
(41)41,19=1 
(101,223 

(11 (41,3)=7 
{1)(2,1}=9 
{11(2,2)=4 

{11 (2,3)=-2 
(19(3,1)=3 
(11(5,2)=1 

{11 (3,3)=4 
pour élever cette matrice au 
carré, il suffit de la pousser à 
l’aide de la touche *P’; puis, 
d'effectuer la multiplication en 
appuyant sur ‘#*. 

Vous obtenez alors: 

{1} 0i,1)=49 

{(1)(4,2)=22 

(1311,3)=29 

{1312,1)=39 

{1}(2,2)=41 

{11 (2,3)=47 

{1}(3,1)=24 

{11115,2)=17 


VW, vous voyez 


(1113,3)=33 

puis le sessage OK(i) 

{appelons cette matrice la 
matrice À) 

Pour stocker cette matrice en 
ménoire, il suffit de taper ‘5° 
{pour stockage) 

vous voyez alors: sto No 

Entrez le numéro de stockage 
{nous dirons 2) 

faites 2 puis ENDLIRE 

Effacez algrs la gatrice À à 
l’aide de La touche C (pour 
clear); il s'affiche OK(0) {pile 
vide} 

faites ‘KR? {pour rappel) vous 
voyez Rcl Ho; entrez 2 ENDLINE 
s'affiche OK() prouvant que la 
gatrice est à nouveau présente 
{visualisez la à l'aide de °V° 
Pour additioner à la gatrice À 
la matrice identité 343 de la 


forge 


100 
910 
901 
entrez sinplenent 3 au clavier 
puis 1° (pour identite); vous 


voyez alors DK(2) qui signifie 
qu’il y a 2 #atrices dans la 
pile: 

-La matrice identité au sommet 
-La satrice À en dessous 

puis tapez + 

La visualisation aontrera que la 
matrice est identique à la 
satrice À, excepté: 

{1} (1,1)=5 

{1} (2,2)=42 

(113,336 

pour calculer le déterminant de 
cette matrice, faites ‘D, 
S'affiche alors: [DETI=19573 
Cette opération ne nndifie pas 
la matrice de travail 


Voyons maintenant les À 
opérations sur les lignes et les 
colonnes 


en appuyant sur ‘’gK’, vous 
voyez! 

Clné,Clnt,Cte 7? 

Entrez dans l’ordre: 

“la colonne qui doit étre 
aultipliée 


-La colonne dans laquelle aura 
lieu l’addition 
-la constante de aultiplication 


Par exemple, nous allons ajouter 
3 fois la colonne 2 à la colonne 
Î 
Entrez 
ENDLINE 
vous voyez toujours OK(1) 
appuyez sur ‘gl? 

le message ect cette fois: 
Lont,Lgn+,Cte? 

la syntaxe étant la même que 
précédement, pour ajouter 1/2 
fois la ligne 3 à la ligne 2 
;tapezt 3,2,1/2, puis ENDLINE 
les éléments de la aatrice sont 
alors dans cet ordre (vérifiez à 
l’aide de ‘W’) 116, 22, 29, 
202,5, 00,5, 45, 75, 17, 36 
divisez #aintenant la presière 
ligne par 4, pour cela, taper 
#1? 

Le sessage est: Ligne,Cte? 
entrez: 1,1/4 puis ENDLINE 

puis, diviser a troisiène 
colonne par 5 en tapant: ?K° 


pour cele 2,1,$ puis 


le ressage est: Colonne, [te 
entrez 3,175, puis ENDLINE 
la matrice a alors cette forme: 


9 


{13(41,1) 
(1) (4,2) 
{1} (1,9) 
{132,1) 
{13 (2,2) 
(D C,31213 

{11} (3,11=75 

{1143,2)=17 

(13(3,31=7.2 

pour æultiplier la satrice par 
une constante, tapez ‘gi 
Vous voyez alors: Constante? 
entrez par exemple 1/4, 
ENDLINE 

À présent, pour visualiser cette 
satrice, nous allons utiliser la 
routine d'éditiont 

faites donc °gE? 

vous voyez! (9)(1,1)27,25 

tapez ENDLINE 

19311,2)=1,373 

nous allons changer la valeur de 
l'élésent 1,2; pour cela, tapez 
3, puis -line , puis ENDLINE 
{9){1,3)=,3625 

tapez 4 -line ENDLINE 

(9) (2,1)=50, 825 
tapez: ÿ) (2 
puis EXDLINE 
(9) (2,2)=12,825 
c’est alors que vous vous 
apercevez que l'élément 1,1 
17,25), doit etre mis a 7 
faites alors 41,1, 
ENDLIHE 

{9)(1,1)=7,25 

faites ‘}, -line ENDLIRE 
{9)11,2153 

puis #2,2 pour revenir Où Vous 
en étiez: 

(93 (2,2)=12,625 

si l'édition est terminée, taper 
siapleant ?# (il n’est pas 
nécessaire de faire -line) puis 
ERDLIHE 
vous 
GK11) 
la gatrice est alors 
(1) 11,11=7 
{11(1,2)=3 

tt, Si 


F5 de En 
en 


en © 
on 


Ce OÙ Où 1 


ON re on NS 


S & 


puis 


fois) puis -line 


-line, 


voyez alors s'afficher 


JPC 


Afin de trouver le niniaun et le 
maxisus de cette natrice, tapez 
siaplesent N° (pour voinnax); 
s'affiche alors 

Mins1,8 Nax=50 

il faut toutefois remarquer que 
cette coamande a une variante: 
en effet si la matrice contient 
des nombres négatifs et que le 
drapeau 3 est baissè, ceux là 
sont considérés signé, 5i, au 
contraire, le drapeau 3 est 
levé, il sont considérés en 
valeurs absolues et apparaissent 
non signés dans le resultat, 


si vous desirez maintenant 
triangulariser cette matrice, 
tapez ci {pour 
triangularisation) 


vous voyez alors OK(1), toujours 
une seule matrice dans la pile 
les valeurs de celle la sont 
d'ailleur les suivantes 

15) (41,17=-195.4521739135 
(1)(1,2)=-0.00900000001 
{1)11,3)=1,301542771 E-11 
(1)(2,11=14,1458333331 

{11 12,2)=4,95138888807 
(1)12,3)=-0, 000006000001 
(1)(3,1)=18,75 

(1)13,2)54,25 

(113,315 1.8 

Mais cosre vous pouvez Île 
constater, ces résultats ne sont 
pas optiaisés; en effet, en 
11,2), (1,3), et (2,3), les 
valeurs sont en fait 0°, tapez 
alors ‘0° (pour optimisation) et 
en 1,25 1,3; et 2,3 vous 
trouverez °° 

cette fonction perset en effet 
d'amener à *0* tous les nogbres 
coapris entre -ÎE-8 et et +{e-8, 
et a { ceux compris entre 1-E-8 
et Î+E-8 futile dans le cas de 
résolution de système). 

On pourra noter que cette 
routine est utilisée pour le 
calcul du déterginant et la ré 
solution de systéme 


Btfin de bien montrer la 
souplesse d'utilisation de ce 
programne, nous allons un peu 
leisser tomber cette matrice et 
nous occuper d’autres. 
Pour cela, appuyez 
entrez cette gatrice 
12472 
b-3 1 -1 


sur °E’ et 
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puis cette seconde 


1497 

21-41 

32-43 

et enfin cette troisiène 
12 

25 

31 


Vous devez obtenir enfin: OK{4) 
qui vous déclare que la pile 
contient 4 élésents 


Si vous essayez d’éxécuter 
+ ou ?#, vous obtenez un 
message d'erreur, dont la liste 
sera donnée plus loin 
En effet, on ne peut ni 
additioner, ni æultiplier entre 
elles une matrice 34 et une 
natrice 32. Pour qu’une 
opération soit possible, il faut 
rappeler la prenière satrice 
entrée (de disension 2t4). Cela 
est rendu possible par ]la 
fonction RON qui agit sur les 3 
aatrices situées au sonmet de la 
pile 
En appuyant 2 fois sur °R° vous 
obtenez le sessage DK(4), Gi 
vous appuyez gaintenant sur ?#, 
l'opération a lieu, et la 
réponse est DK(3). Vous pouvez 
slors réaliser l'addition des 2 
matrices 343 en appuyant sur ?+° 
on lit alors que la filene 
contient plus que 2 gatrices, On 
va d'ailleur conserver la 
matrice que l’on vient d'obtenir 
en 5e débarrassant de celle qui 
nous a rendu de bons services 
tout à 1‘heure 
Pour cela, tapez: °R° puis °C? 
ce qui a pour effet de faire 
tourner les satrices {R), pui 5 
d'effacer la ratrice de travail 
et de faire monter la pile. 
On peut alors écrire la matrice 
que l’on a obtenu précédenment 
sous la forne d’un systeme de ce 
type: 
L4X + OY + 152 = 7 
341 - 10Y +97=0 
E + +71-8 
a l’aide de la touche *g5° {pour 
résolution de systeme), on peut 
calculer X, YŸ, et 7, Après avoir 
appuyé sur °gf, vous obtenez le 


aessage ?en cours de 

résolution’, puis le message 

DK(1) qui signifie que le 
JPC 
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systèse est résolu, La matrice a 
alors le foraat suivant: 

1 0 0 .214673913047 

6 1 0 ,969365217398 

0 0 1 .28630434782 

après avoir bien entendu utilisé 
la routine d’optinisation, 

ces résultats nous donnent les 
valeurs de X, Y,et Z 


I existe enfin 2 routines 
qui peraettent de vider la 
séeoire en fin d'utilisation en 
node utilisation matricielle 
ces 2 routines sont assignées 
aux touches ’gD° et ’gR’ 

Celle assignée à ’d' peraet 
d'effacer les natrices qui ont 
été stockées, 

celle assignée à ?r’ permet de 
restaurer les  assignations 
précédentes 


Cosge annoncé tout a l’heure 
voici les quelques nessages 
d'erreur que peut retourner le 
HF 71: 

‘pile vide‘: la pile ne contient 
aucun élésent 

’sémoire vide’: on a tenté de 
rappeler une mémoire qui n'a pas 
été resplie precedegsent 

dif de disension’: on a tenté 
d'effectuer des opérations sur 
des matrices dont les disensions 
sont différentes 

Egn#Col’: Iden dif de diéension 


colonne inexistante‘: on a 
tenté une opération sur un 
nugéro de colonne trop grand 
‘Ligne inexistante’: on a tenté 
une opération Sur un numéro de 
ligne trop grand 

un seul élément’: on à tenté 
une opération diadique alors 
qu'un seul élérent est présent 
dans la pile 

‘op, non valide’: 
spécifiée ne 
effectuée, 


L'opération 
peut étre 


Laurent ISTRIA (#3) 


DESSIL 


Ce prograsre peraet de faire du 


DAO (Dessin  Assisté par 
Grdinateur). Vous pourrez 
dessiner sur J’afficheur de 


votre Ordinateur Favori, avec 
les quatre touches de curseur, 
et quelques autres... 


Variables: 

X= No de colonne 

Y= No de ligne 

C= Valeur de la colonne courante 


A$= 
B$= 


Sauvegarde de l'affichage 
Ides si aode DEPlacenent 


Drapeaux: 

b: {l)aode TRACE 

b: (O)aode GOHHE 

4: (f)aode DEPlacesent 
0: (l)aode MOVE 


Congandes: 
<,2,",vt Déplacement du curseur 
T3 (Trace le chemin du curseur 
E: (Giomse Le chesin du curseur 


P: (Phositionne le curseur à une 
adresse absolue 

D: (Dléplacesent du 
-Bascule- 

1: (Iinverse vidéo !.., 
B: (Bouge le dessin en bloc 

C: (Codes des caractères 
dessinés 


CUrSEur 


Mode d’enploi: 

Le curseur figure la pointe d’un 
crayOn. 

En eode TRÂCE, -celui dans 
lequel vous tes Ilorsque vous 
lancez le progranne-, le chenin 
parcouru par le crayon reste à 
l'affichage, 

En aode G0MME, le curseur figure 
une gone (!) devinez la 
suite. 


En aode DEPLACEMENT, le curseur 
apparaîtra en vidéo inverse sans 


sodifier le dessin à 
l’atfichage, 

INVERSE vidéo: appuyez sur la 
touche <I> et votre chef 


d'oeuvre connaîtra l’inversion 
vidéo, 

POSITION du curseur: appuyez sur 
<P} et vous pourrez spécifier la 
position à laquelle le curseur 
doit se placer (coordonnées 
cartésiennes (3,%)), Avec: 
0€1€131 et O<Y<7 

BOUGE: déplace le dessin suivant 
les 4 flèches habituelles, 
Touche €B} Ce qui sort de 
l'affichage est perdu. 

CODES: touche €C) Fermet de 
{Visualiser ou (Sauver Île 
dessin, Ce progranse est Ja 
version 3,0, et permet de faire 
des choses intéressantes sur le 
HP 71, 


Heureuse prograngation.,, 


Jean-Pierre BONDU (#33), 


EDITEUR DE CASSETTE 


Le progrante que je vous 
propose sodifie et écrit toutes 
sortes d'informations sur les 
cassettes nugériques du lecteur 
HP42161, 


Rappels (extraits du manuel) 


Le  Jecteur conporte trois 
caratéristiques dont la 
connaissance facilite 
l'utilisation: 


nésoire tañpon 0, #énoire tampon 
et le pointeur d’actet. 


Héroire tampon 0. Cette génoire 
cosporte 256 octets et contient 
tesporairesent les informations 
transférées entre la bande et la 


boucle HPIL, 


Mésoire tanpon 1. Cette rémoire 
conporte 256 octets et contient 
teaporairenent les informations 
envoyées ou reçues de la boucle 
d'interface, 


Pointeur d’octet. Ce pointeur 
est un indicateur dirigeant le 
transfert d'informations dans et 
hors des néaoires taepon 0 et Î. 
Il “pointe” à l’un des octets de 
la mésoire (octets de 0 à 255), 
Le transfert suit en général le 
pointeur qui se déplace d’un 
octet vers Je suivant, Le 
pointeur agit dans les deux 
aéaoires à la fois, 


Le lecteur de casette 
dispose de deux modes principaux 
pour l'écriture d'informations 
sur la bandes continue et 
partielle, L'écriture continue 
est utilisée par l’ordre DDL2 et 
l'écriture partielle par l’ordre 
DDLé. 


Lors d’une écriture partielle 
{utilisée par le programme), 
l'enregistrement courant de la 
bande est copié dans la négoire 
taspon O0 et une partie {ou 
l’ensesble dans le prograaee) de 
ces informations est remplacée 
par les données en provenance de 
la boucle d'interface, Lorsque 
la eéaoire est pleine, 5on 
nouveau contenu renplace 
l'ancien dans l'enregistrement 
sur la bande et l'enregistrement 
suivant est copié dans la 
aéeoire taapon 0, Cette méthode 
peraet de modifier une partie 
d'un enregistrement sans 
affecter le reste, 


La cassette est structurée en 2 
pistes de 25h enregistrements 
chacune et chaque enregistrement 


en 256 octets, 256f23642 = 
131072 octets, 
le  programse nugérote les 


enregistrements de © à Si et 
les octets de 0 à 254, 


Le prograqne travaillera 
toujours avec le presier lecteur 
de cassettes dela boucle, 


JPC 


UTILISATION: 

Une fois le programme lancé, 
vous disposez de plusieurs 
Conandes: 


- Evi, écrit sur la cassette les 


rodifications faites sur 
l'enregistrement courant et 
déplace le pointeur à 
l’enregistresent suivant, À 
l’enregistrenent 51, le 
pointeur revient à 
l’enregistrerent 0, Cette 
opération n’affecte pas Ja 


position du pointeur d’octet. 


- [1], écrit sur la cassette les 


acdifications faites sur 
l'enregistrement courant et 
déplace le pointeur à 
l’enregistrenent précédent, À 


l'enregistrement 0, le pointeur 
va à l'enregistrement 911, Cette 


opération n'affecte pas le 
pointeur d'octet, 
- 31, déplace le pointeur 


d'octet d'une position en avant, 
À l'octet 255, le pointeur 
revient à l’octet 0 du nêére 
enregistrement, 


- [EC], déplace le pointeur 
d'octet d'une position en 
arrière, À  l’octet 0, le 


pointeur va à l’octet 255 du 
née enregistrement, 


- LES, écrit sur la cassette les 


modifications faites sur 
l'enregistrement courant et 
déplace le pointeur 
d'enregistrement à l'adresse 
indiquée, 

- [0], déplace Le pointeur 


d'octet à l’adresse indiquée, 


- [C1, wodifie dans la mésoire 
du HP 71 l‘octet courant, Les 
sodifications ne sont écrites 
sur la cassette qu'avec Îles 
fonctions Lvl, [*1, [EJ et [FI, 


- CRT, remplace les caractères 
en partant de la position du 
pointeur jusqu'à la fin de 
l'enregistrement par des 
caractères 254, 
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- [IF], fin de prograsne: écrit 


sur la cassette les 
aodifications faites sur 
l'enregistrement courant et 


renbobine la cassette, 


- CATIN/ON], arrête le programre 
sans écrire l’enregistreaent 
courant, 


Heureuse prograsgation. 
Michel NARTINET, 


GESTION DE L’HPIL 


Ce prograsge a pour but de gérer 
une boucle HP-IL corportant un 
nonbre quelconque de HP 7{B, une 
ou plusieurs unités de aéroire 
de nasse, une où plusieurs 
inprimantes, un où plusieurs 
aodens... 11 faut prévoir grand, 
n'est-ce pas ? Ne désespérez 
past tout ce @atériel pourra 
être réuni au cours des réunions 
mensuelles de PPC-PARIS, où vous 


pourrez, bien sûr, anener je 
vôtre. 
Nanti de ce progranne, il sera 


possible de travailler, chacun 


son tour, Sur La boucle, Ceci 
s'appelle Île “partage de 
ressources", 


Un des HP 71 disposera de ce 


programme: c’est le contrôleur 
général, Les autres, pour 
disposer de La boucle, 
desander ont le contrôle, 
effectueront eur tâche, puis 
repasseront la sain au 
controleur général. Celui-ci 
consultera alors une liste 
d'attente pour connaître le 
suivant. 

Utilisation: 

11 faut charger le programme 
dans la néaoire du HP7i 
contrôleur général, puis le 
lancer par ŒCRUNI, Il prépare 


alors tous les HP 71 de la 


JPC 
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boucle, puis en affiche le 
noabre. 

Sont ensuite affichés en 
permanence: 

- Soit le noabre de 71 
desandeurs, ainsi que leurs 
nuaéros, 

- Soit le nuséro du 71 qui 


dispose du contrôle, le cas 
échéant. 
Vous pouvez alors, sur un des 


HP 71 non contrôleur, desander 
le contrôle en appuyant sur 
Cg] [ONT. Un presier signal 
sonore vous informe que votre 


desande est enregistrée, un 
deuxièse vous prévient quand 
vous aurez le contrôle, 

Attention: il faut 
obligatoireaent rendre Île 
controle en appuyant sur 
gl [ONT, une fois votre tâche 


accoaplie, 

Pour arréter le prograsme du 
controleur général, il suffit 
d'appuyer sur [gl EDNI. 


Attention si vous étudiez le 
fonctionnesent de ce programme: 
il ne faut pas confondre numéro 
et adresse de HP 71, L'adresse 
est l'adresse norsale, telle 
qu'elle est décrite dans le 
sanuel d'utilisation, Le numéro 
est le nunéro d’ordre du HP 71 
dans la boucle, Par exenple, 
Sèse HP 71 peut être différent 
de HP 71 d'adresse 3, 


À bientôt... 
Pierre DAVID 
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CHR$(128) 1 1 000 000 000 000 000 000 11 CHR$(192) : à : 032 084 0B5 OBé 120 000 ; 
CHR$(129) ï : 000 000 000 000 000 000 :: CHR$(193) ! & ! 056 086 085 086 024 000 ! 
CHR$(130) : 1 000 000 000 000 000 000 11 CHR$(194) ! 6 ! 05h 070 069 070 054 000 ! 
CHR$(131) : : 000 000 000 000 000 000 1: CHR$(195) ! à ! 056 066 065 Okh 120 000 ! 
CHR$(132) 5 1 000 000 000 000 000 000 :: CHR$(194) : ! 000 000 000 000 000 000 ! 
CHR$ (133) 5: 000 000 000 000 000 000 :1 CHR$(197) : 6 : 05h 084 OBb 085 024 000 ! 
CHR#(134) 5  : 000 000 000 000 000 000 :: CHR$(198) | : 000 000 000 000 000 000 : 
CHR$(135) 1 1 000 000 000 000 000 000 11 CHR$(199) :  : 000 000 000 000 000 000 ! 
CHR$(136) : 1 000 000 000 000 000 000 1: CHR$(200) : à : 032 084 0B3 084 120 000 ! 
CHR$(137) 1 i 000 000 000 000 000 000 1: CHRS(201) : à ! 056 085 OBé 084 024 000 ! 
CHR$(138) 1 1 000 000 000 000 000 000 :: CHRS(202) :  ! 000 000 000 000 000 000 ! 
CHR$(139) i 1 000 000 000 000 000 000 11 CHRS(203) : ù : 060 065 Okb 064 124 000 ! 
CHR$(140) : 1 000 000 000 000 000 000 1: CHR$(204) :  : 000 000 000 000 000 000 ! 
CHR$(141) 5 1 000 000 000 000 000 000 1: CHRS(205) ! 8 ! 056 085 OR4 085 024 000 ; 
CHR$(142) 1 1 000 000 000 000 000 000 :: CHR#(204) : } 000 000 000 000 000 000 ! 
CHR$(143) 1 1 000 000 000 000 000 000 :: CHR#(207) : à ! 060 065 064 065 124 000 ! 
CHRK$(144) 5 1 000 000 000 000 000 000 11 CHR$(208) :  : 000 000 000 000 006 000 ! 
CHRS(145) 1 1 000 000 000 000 000 000 1: CHR$(209) : 5 ! 000 074 121 Obb 000 000 ! 
CHR$(146) 1 : 000 000 000 000 000 000 11 CHRS(210) : & ! 082 081 073 089 042 000 ! 
CHR$(147) 5 5 000 000 000 000 000 000 11 CHR$(211) : € : 124 010 127 073 073 000 ! 
CHR$(148) :  : 000 000 000 000 000 000 11 CHR$(212) :  : 000 000 000 000 000 000 ! 
CHR$(149) 5 1 000 000 000 000 000 000 :: CHR$(213) 1 1 000 000 000 000 000 000 ; 
CHR$(150) 1 1 000 000 000 000 000 000 1: CHR#(214) : } 000 000 000 600 000 000 ! 
CHR$ (151) 5 1 000 600 000 000 000 000 :: CHR$(215) : ! 000 000 000 000 000 000 ! 
CHR$(152) 1 1 000 000 000 000 000 000 :: CHR#(216) ? 1 000 000 000 000 000 000 ! 
CHR$ (155) 5 1 000 000 000 000-000 000 i1 CHR$(217) 1  : 000 000 000 000 000 000 ; 
CHR$(154) 1 1 000 000 000 000 000 000 1: CHR$(21E) 1 : 000 000 000 000 000 000 ! 
CHR (155) 1 1 000 000 000 000 000 000 1: CHR$(219) ! ! 000 000 000 000 000 000 ! 
CHR$(156) 1 1 000 O0Ù 000 000 000 000 1: CHR$(220) : € : 124 OB4 OBb 085 084 000 ! 
CHR$(157) 5 1 000 000 000 000 000 000 11 CHR$(221) ! ï : 000 069 124 065 000 000 ! 
CHR$(198) : 1 000 000 000 006 000 000 11 CHR$(222) : : 000 000 000 000 000 000 ! 
CHR$(159) 1 1 000 000 000 000 000 000 11 CHRS(223) !  : 000 000 000 000 000 000 ! 
CHR$(160) : 1 000 000 000 00Ù 000 000 :: CHR$(224) :  : 000 000 000 000 000 000 ! 
CHK$(I61) 5 1 000 000 000 000 000 000 1: CHR#(225) |  : 000 000 000 000 000 000 ! 
CHR$(162) :  : 000 000 000 000 000 000 1: CHR#(228) : : 000 000 000 000 000 000 ! 
CHR$ (163) 1 1 000 000 C00 000 000 000 11 CHR#(227) : 1 000 000 000 000 000 000 ! 
CHR$(164) : 1 000 000 060 000 000 000 11 CHR$(228) 1  : 006 000 000 000 000 000 ! 
CHR$(165) : 1 000 000 000 000 000 000 1: CHR$(229) :  : 000 000 000 000 000 000 ! 
CHR$ (166) 1 1 000 000 000 000 000 600 11 CHR$(230) 1  : 000 000 000 000 000 000 ! 
CHR$(167) 3 1 000 000 000 000 000 000 11 CHR#(231) !  : 000 000 000 000 000 000 ! 
CHR$(168) : 1 000 000 000 000 000 000 11 CHR$(232) 1  : 000 000 000 000 000 600 ! 
CHR$ (169) 3 1 000 006 000 000 000 000 11 CHR$(233) : 1 000 000 000 000 000 000 ! 
CHR$(170) 1 1 000 000 000 000 000 000 :1 CHR$(234) 1  : 000 000 000 000 000 000 ! 
CHK$(171) ï 5 000 000 000 000 000 000 11 CHR$(235) 1  : 000 000 000 000 000 000 ! 
CHR$(172) à 1 000 000 000 000 000 000 1: CHR$(Z34) 1 1: 000 000 000 000 000 000 ! 
CHR$(173) 1 1 000 000 000 000 006 000 11 CHR$(237) 1  : 000 000 000 000 000 000 ! 
CHR$(174) 5 1 000 006 000 000 000 000 11 CHRS(238) 1  : 000 000 000 000 000 000 ! 
CHR$(I75) 1 1 000 000 000 000 000 000 11 CHR$(239) 1  : 000 006 000 000 000 000 ! 
CHR$(178) 1 1 000 000 000 000 000 000 1: CHR#(240) à 1 000 600 000 000 000 000 ! 
CHR#(177) 1 1 000 000 000 600 000 006 3 CHR$(241) :  : 000 000 000 000 000 000 ! 
CHR$(178) 1 1 000 000 COÛ 000 000 000 11 CHRS(242) :  : 000 000 000 000 000 000 ! 
CHR$(179) 5 * à 000 000 007 00% 007 000 11 CHR$(243) :  : 006 000 000 000 000 000 ! 
CHR$(180) : 1 000 000 000 000 000 000 11 CHR#(244) :  : 000 060 000 000 000 000 ! 
CHR$ (181) 5 ç 1 056 OëB 196 088 068 000 11 CHR$(245) !  } 000 000 000 000 000 000 ! 
CHR$(182) 1 000 000 000 000 600 000 11 CHRS(244) 1  : 000 000 000 000 000 000 ! 
CHR$(183) : 1 000 000 600 000 000 000 11 CHR$(247) !  : 000 006 000 000 000 000 ! 
CHR$(184) 1 1 000 000 000 000 000 000 11 CHR$(248) 1  : 000 006 000 000 900 000 ! 
CHR$(185) 1 1 000 000 000 000 000 000 11 CHR#(249) ! 1 000 000 000 000 000 000 ! 
CHR$ (186) 1 1 000 000 000 000 000 000 1: CHR$(250) 1 1! 000 000 000 000 009 006 ! 
CHR#(187) 1 £ 1 072 128 073 065 Oùb 000 11 CHR$(251) : à 000 000 000 000 000 000 ! 
CHR$(18E) 1 1 000 000 000 000 000 000 1: CHR$(232) 1  : 000 000 G00 000 000 000 ! 
CHR$ (199) 5 $ à 032 078 OBS 057 002 000 11 CHR$(233) :  : 000 000 000 000 000 000 ! 
CHR$(190)  : 000 000 000 000 000 000 11 CHR#(234) :  : 000 000 000 000 000 000 ! 
CHR$(191) 3 5 000 006 006 000 000 000 11 CHR$(223) 1 1 000 000 000 000 000 000 ! 
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Prograane “POLYCOPY" (transaission sisultanée de fichiers) 


1000 INTEGER 1,9,N 
- 1: Conpteur 
d: Brauillon (adresse du i-èee HP 71) 
N: Nombre de HP 71 dans la boucle {non compris l’énetteur). 
1010 DIN F$[8] 
- F$: Nos du fichier, 
1020 GOSUB *RESTAURE” 
- Prépare la boucle, 
1030 DISP ?I1 y a’sN;'HP 71,° 
1040 BEEP 
1050 IF N<0 THEN STOP 
- On arrête si il n°y a pas d’autre HP 71 dans la boucle... 
1060 ON ERROR GOTD * ERREUR? 


1070 BOUCLE? : 
1080 INPUT *Fichiers ?3F# 
1090 SEND IFC 
— TFC: InterFace Clear, supprige tous les états énetteurs ou récepteurs sur la boucle, 
1106 IF F$=7? THEN *FIN’ 
1110 FOR I=1 TON 
1120 SEND LISTEN A{1) 
- Déclare 1e i-ène HP 71 coase récepteur (le prépare à recevoir le fichier), 
1130 NEXT I 
1140 SEND NTA 
— NTA: My Talk Adress, prépare le HP 71 écetteur à envoyer le fichier. 
1150 OUTPUT :LO0P ;”COPY:LOOP TO°&F$ 
- Ordonne à tous les 7i de réceptionner le progrante. 
1160 COPY F$ TO :LODP 
- L'envoi proprement dit... 
1170 60T0 ? BOUCLE? 
- În recoamence. 


1180 *RESTAURE” : 
1190 RESET HPIL 

- Redispose correcterent le sodule HP-IL: utilisé surtout après une condition d'erreur. 
1200 RESTURE 10 

- assigne la boucle. 


Le tableau À contient les adresses de tous les HP 71 sur l'HP-IL. 11 est disensionné 
exactesent à N au sortir de la boucle suivante: 
1210 FOR I=1 TD INF 
1220 J=DEVADDR (*HP71 ('ESTRS(I)E" )*) 
- Adresse du i-ène HP 71. 
1230 IF J{0 THEN 1260 
- Si elle est négative, le i-ème HP 71 n'existe pas, 
1246 SHORT AI) 
- Redisensionnesent de tableau: serci Hewlett ! 
1250 A(I)=J 
1266 REMOTE :J 
- Place Le HP 71 en sode télécommande: toutes les données envoyées seront interprétées 
conse des cosmandes Basic, 
1270 NET I 
1280 N=1-1 
- Rosbre de HP 71 dans la boucie, 
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1290 RETURN 


1300 *ERREUR’: 
1310 FOR 1=1 TO 20 € OUTPUT :LOOP 5°? & NEXT I 
- Si il y à eû erreur, les 71 récepteurs restent bloqués sur l’ordre COPY. On envoie alors 
une Série de cosnandes “nulles” pour débloquer la situation. Le nombre 20 peut dépendre 
des HP 71, À nodifier éventuellement. 
1320 DISP ERRHS 
- On affiche le nessage d'erreur après avoir débloqué la situation, car :LOOP ne peut 
plus fonctionner correctement si un périphérique de visualisation (DISPLAY 19) est 
déclaré (cf page 186 du aanuel du HP IL), 
1330 BEEF 
1340 GOTO * BOUCLE” 
- On reset la boucle en place. 


1330 *FIN’': 
1380 OFF ERRDR 
1370 FOR I=1 TO N 
1580 LOCAL :4(1) 
1390 NEÏT I 
1400 END 
- On replace la boucle en aode LOCAL (#ode normal). 


PÉFSTÉEEES ENTER SERRES ETES ENERE EEE EENSENEEE SERRE RER ER EESERENNEENENENNERSTNR SES ANEETANN NANTERRE SES 


Programme “CHARSET* (gestion du jeu de caractères secondaire) 


1006 DIH AST1],C$T7681, DL 241,E#$L2J,H$121,K$041,N$[8] 
- À$: caractère secondaire "courant", 
C$: CHARGET courant, 
D$: Variable d'affichage avec chaëp protégé (cf page 237 du eanuel d'utilisation). 
E$, Hé: délimiteurs de champs. 
K$: Valeur de la touche pressée, 
Nf: Nos du fichier (non détruit en cas de réutilisation). 
1910 INTEGER &,B,C, I 
- À: Adresse de la colonne courante dans c$ (de 9 à 767) 
B: Numéro de la colonne courante {de 1 à 6) 
C: Numéro de caractère (de 128 à 255), 
1: Cogme d'habitude... 
1925 A=0 
1030 E$=CHR$ (27347 €? 
1040 H$=CHR#(27}4& 5? 
1956 DELAY 0,0 
1986 LC OFF 
1970 GOSUB * ASSIGNE? 


1500 RETOUR? : 
1510 GOSUE *RFFICHE* 


1520 *EQUCLE*: 

1530 K#=ÉEYS € IF K#=** THEN *HOUCLE? 
1540 IF K&=?4587 THEN GOGUB *DUFLIC? 
1550 IF K$=*447° THEN A=MOD(A-1,768) 
1560 IF K#=7#487 THEN A=HOD(A+1, 768) 
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1570 IF K$=’#50° THEN A=MOD(A-6, 788) 
1580 1F K$=’#51 THEN A=MOD{A+6,768) 
1590 IF K$=’D°’ THEN GOSUB *DEPLACE” 
1600 IF K$=’E? THEN GOSUB ?EFFACE? 
1610 IF K$=?I? THEN GOGUB * IMPRIME” 
1620 IF K$=*M° THEN GOSUB ”HODIF? 

1636 IF K$=°F? THEN ’FIN° ELSE ?RETOUR’ 


2006 *FIN°: 
2016 DISP ‘Sauvegarde: attendez’ 
2020 FOR I=1 TO 768 
2030 IF C$C1,11<)CHR${0) THEN 2070 
2040 NEXT I 
2050 PURGE N$ 
2040 G6OTO 2100 
2070 RESTORE #i 
20B0 PRINT #1;C$ 
2090 GECURE N$ 
2100 DESTROY C$ 
2110 PUT *#38° 
- Perset de récupérer le curseur après un DISP et une fin de progranne, 
2120 END 


2506 *ASSIGNE”: 
2510 ON ERROR BOTO 2450 
2520 INPUT ‘Fichier :’,N#5N$ 
2530 D$=ADDRS (NS) 
2540 UNSECURE N$ 
2590 GSSIGN #1 TD Né 
2560 READ #1;C$ 
2570 GOTO 2420 
2580 DISF ‘Erreur *ESTRY{ERRNI&’: attendez” 
2590 FOR 1=1 TO 768 
2600 C$LT, II=CHRS (0) 
2b10 NEXT I 
2620 CHARSET C# 
2630 OFF ERRDR 
2b4Q RETURN 
2650 BEEP 2000 
2640 IF ERRN=24 OR ERRN=1924 THEN 2710 
- Ménoire insuffisante. 
2870 IF ERRN=54 OR ERRN=1054 THEN 2580 
- Fin de fichier (il existe, mais vide). 
2686 IF ERRN=97 OR ERRN=1957 THEN CREATE TEXT NS € ASSIGN #1 TO Hé @ G0TD 258 
- Fichier non trouvé, 
2690 IF ERRN=64 OR ERRN=1044 THEN 2580 
- Périphérique non trouvé, 
2706 DISP ERRH$ E NAÏT 1 @ GOTO 2520 
2710 FDP 
2720 DISP ERRHS 
2730 END 


3006 AFFICHE’: 

3010 C=128+8 DIV 4 

3020 B=1+MOD (A, à) 

3030 A$=CHR$(C) 

3040 IF A$=7° THEN A$=° ? 

3050 D$="CHRSC'RSTRS (CDR )s RAGE *ESTRE(BIL -"ESTRS(NUMIC#TA+H,A#11)) 
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3060 BEEP INF,EPS 
3070 DISP D$ 
3080 RETURN 


3500 *DEPLACE”: 

3310 D$=E$L'CHRS (?SHSESTRS (CILESE"): LAS *ESTRS(B)L?-" LSTRE (NUM (CC A+1,4#17)) 
- Affichage avec chanps protégés. 

3320 ON ERROR 6070 3530 

3330 BEEP 2600,.1 

3540 INPUT *?,D$5C 

3530 IF C<128 OR C>244 THEN 3530 

3560 OFF ERROR 

3570 A=(C-128)f4 

3540 RETURN 


4600 *EFFACE”’: 

4010 A=(C-128) #4 

4020 FOR 1=1 TO & 

4030 C$CA+I,A+IJ=CHR# (0) 
4040 NEXT I 

4030 A=NOD (A+, 768) 
A06G CHARSET C£ 

4070 RETURN 


4500 *HODIF”: 

4510 D$=ESECHRS (LSTRS (CIE): RASE? ?ESTRE (BRIE LHSLSTRS (NUM(CSCA+#1, AH11)) 
- Affichage avec chañps protégés, 

4920 ON ERROR GOTO 4539 

4530 BEEP 2000, .1 

4546 INPUT *°,D$:B 

4330 IF B6O OR H)255 THEN 4530 

4560 OFF ERKDR 

4570 CHCA+H,A+LI=ÉHRS(E) 

4580 A=HOD (A+1,768) 

4590 CHARSET C$ 

4450 RETURN 


SSSS === enn on O0 0 me aie 2e me eee meme on © D 0 QD 0 eu eq mm 


5000 *DUPLIC”?: 

5016 IF A=0 THEN RETURN 

0020 IF A=767 THEN C$[7681=C$1767,7671 E GOTO 5050 
5090 C$EHOD(A+I,748),HOD(A+1,768)1=C$TA, AI 

5040 A=MOD(A+, 768) 

5090 CHARSET C$ 

9080 RETURN 


Ju00 IMPRIME’: 
9910 ON ERROR GOTO 3930 
5920 RESTORE 10 
5530 G=DEVADOR {” HPB29098") 
- Code à changer si votre inprisante est différente, 
9949 IF G=-j THEN RETURH 
5990 PRINT CHR$(27)&°4196F0D" CHARS (27) &° &k267 
- Eventuellement à changer, 
üu60 OPTION BASE 1 
0970 INTEGER H,19,K,P(8),8 
- H: Compteur de lignes d’inpression, 
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Ji Cospteur du tableau P, 
K: inversion de la matrice de caractères pour le graphique de l’iaprisante HP829058. 
P: Valeur des & colonnes du caractère, 
B: Valeur de la colonne à iapriaer. 
U980 INAGE #,4,X,"CHRS(",32,7)°,X,A,X,124,X,À,61X,31),X,AÀ 
5990 GDSUB 5830 
5600 PRINT TAB(20);°1°; 
9610 PRINT TAB(40);'JEU DE CARACTERES SECONDAIRES : ?EN$; 
2620 PRINT TAB(107)3°1? 
0630 GOSUB 5830 
5640 FOR H=0 TO 83 
5630 PRINT TAB{20): 
0660 FOR 1=H TO H+b4 STEP 84 
0670 P$=CHR$S (27) 4° Yb46° 
5680 FOR d=1 TO à 
4690 P(J)=NUM(CSCI#é+J1) 
5700 8-0 
ü/10 FOR K=0 TO 7 
3720 IF BIT(P(J),K) THEN 0=8+2(7-K) 
5730 NEXT K 
5740 P$[5+J12-CHR$ (0) 
u790 HEXT J 
9760 PRINT USING 55805°1°51#1285 727 5P$5" 25 P(1)5PU2)3P(3)5P(4)5P(5)5P(b)5° 1? 
5770 NEXT I 
1780 PRINT 
5790 NEÏT H 
5600 GOSUB 5830 
0610 PRINT CHR$(12) 
4820 RETURN 
4830 PRINT TAB(21); 
9840 FOR 1=1 TO 84 
3890 PRINT *-*; 
u8é0 NEXT I 
9710 PRINT 
4720 RETURN 
5930 BEEP 2000 
4940 DISP ERRH$ 
2930 OFF ERROR 
5940 RETURN 


DETENTE EEE EEE SEEN EAN NAEET 


Routines graphiques 


1060 SUE DTHIN,N#) 

1010 H$=?? 

1020 FOR d=7 TO 6 STEP -{ 
1030 N$=NS$ESTRS (BIT IN, d}} 
1040 NEXT J 

1050 END SUB 


2006 SUB PCLRIY, Y) 
2010 I=0 
2620 G0TD 3020 
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3000 SUB PSET(X,Y) 

3010 I=1 

3020 IF Xi OR X>132 OUR YCi OR Y>B THEN 3100 
3030 DIN A$[132] 

3040 A$=6D15P$ 

3050 CENUMCA$EX 1). 

3060 IF I AND NOT BIT(C,B-Y) THEN C-C+2*(8-) 
3070 IF NOT I AND BIT(C,A-Y) THEN C=C-2"(B-Y) 
3080 A$IX, LI=CHR$ IC) 

3090 G6DISP À$ 

3100 END SUB 


ÉCLATER EEE ERA EANSENNIER EE 


Prograañe "DATE" (calcul du jour de la semaine) 


1006 SUB DATEX(X,D) 
1910 J=INT{X) 
1020 X=FF(X)#100 
1030 H=INTIX) 
1040 A=FP{X) 410000 
1050 CALL DATE(J,H,A,D) 
1060 ERD SUE 
- Sans comgentaires... 


2006 SUE DATE{J,H,A,D) 
— J5 dour, M: Mois, A: Année, D est la réponse. 
2010 OPTION BASE 
20269 IATEGER N(12),F(4),A1,1,K,PI 
- Ni contient le nonbre de jours de chague sois de l’année, 
Ps est la valeur du prenier de l'an "1500", 1400, 1700 et 1800. 
I: Usage habituel 
K: Siècle correspondant au tableau P 
2056 FOR I=1 TD 12 
2649 READ H{I} 
2050 NEXT 1 
- Resplissage du tableau À, 
2060 FOR 1=1 TO 4 
2070 READ F{1) 
2689 HET I 
- Reñplissage du tableau P, 
2090 N(2)=284FNE (A) 
- Février cosprend 28 ou 29 jours. 
2100 D=-1 
- D vaut -1 si il y a erreur, 
2110 IF H>12 OR K(1 THEN 2310 
— conge un avis ineuistant, 
2120 IF Jéi OR J2N{M) THEN 2310 
- un jour non valide, 
2130 IF Af10000+N1100+J€15821015 THEN 2310 
- où une date antérieure au 19 Octobre 1582, 
2146 K=MOD((A-1500) DIV 100,4)+1 
— K vaut 1 si 1500-1599, 1900-1999, 2300-2399, etc... 
2 5i 1600-1699, 2000-2099, 
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3 si 1700-1799, 2100-2199, 
4 si 1800-1899, 2200-2299, etc... 
2150 D=P{K) 
- Dest initialisée au prenier jour de l’année séculaire. 
2160 FOR I=A-MOD{(MOD(A,100),28) TD A-1 
2170 D=D+365+FNB(I) 
- Dans l’année Ï, il y a 365 jours, ou 366 si elle est bissextile, 
2180 NEXT I 
2190 FOR I=1 TD M-1 
2200 D=D+N(I) 
- NII} est le nonbre de jours dans le anis I, 
2210 NEXT I 
2220 IF K#2 AND MOD(A,100) THEN D=D-1 
- 6i l’année séculaire n’est pas bissextile, on ajoute un jour, 
2256 D=HOD(D+J-1,7) 
- On rarène le jour entre 0 et 4. 


2240 DATA 31,0,31,30,31,30,31,31,30,31,30,31 
- Données pour le tableau N. Pour Février, il n’est pas nécessaire de aettre une valeur, 
car le mois de Février est initialisé ligne 2090, Gain de 1 quartet, toujours bon à 
prendre. Il n’y à pas de petits profits ! 
2250 DATA 1,6,5,3 
- Le fier Janvier 1500" est un Lundi, etc... 


2240 DEF FNE(A) 
- FNE retourne { si l’année est bissextile, 0 si elle ne l’est pas. 
2270 FNB=0 
2280 1F NOT HOD(A,4) THEN FNB=I 
2290 IF NOT MOD(A,100) AND MOD(A,400) THEN FNE=0 
2300 END DEF 


2310 END SUB 


DISEASE TEEN EEE ETES ENTER SENS SAN EREN SEEN ESNENNENEEENES ENS EE EEE ENREAENT ENT 


Progragne "HATRICE" (traiteaent de matrices) 


0010 RENAME KEYS TO MATRK & RENAME MATRKEYS TO KEYS 
0026 DESTROY A,B,C,C1,D,L1,L2,K1,K2, HI, H2,N,D,P,P1,R$,9$ € OPTION BASE 1 € DELAY .5,.5 
0030 ASSIBN #1 TO À € ASSIEN 42 TO À 


0040 *ENTHAT’: INPUT ’Din. sat, (LC)? *3H,N 
6050 DIH AUH,N) 

0080 FOR 1=1 TO M € FOR J=1 TO N 

6070 DISF USING "8, (,K,")0",K,,",k°l= °"5P1,L,] 
0080 INFUT AI, 1) 

0090 NEXT J & NET I 

0100 PI=PI+#1 

0110 ASSIGN #1 TD HAT-ESTRS (PL) 

0120 PRINT #13M,N,A,) 

0130 ASSIEN #1 TO À 

0140 DISF *OK{3P1;°)? 

0150 END 
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0140 ?POUMAT*: IF P1=0 THEN DISP ’Pile vide !* € BEEP @ END 
0170 COPY *HAT'&STRSIP1) TO *MAT'LSTRS(PI+1) 

0180 ASSIEN #1 TD *MAT'£STRE (PL) 

0190 READ #1:M,N, At) 

0200 ASSIEN #1 TO à 

0210 PI=PI+1 

0220 DISP *DK{’3P13°) 

0230 END 


0240 *CLHAT': PURGE ?MAT'4STRS(PI) @ DESTROY À 
0250 IF P1=1 THEN 310 

0280 ASSIEN #1 TD MAT LSTRS(PI-1) 

0270 READ 41:M,N 

0280 DIM AUM,N) 

0290 READ #1:A(,) 

0300 ASSIEN #1 TD À 

0310 PI=PI-1 

0320 DISP OKC3P13°1° ASSIGNATIONS DU PROGRAMME MATRICE 
0330 END 


0340 *DESTMAT’: FOR 1=1 TO F1 & PURGE *MAT'ESTRS(I) @ NEXT I @ END D DEF KEY °E°,'G0SUB ENTHAT': 
DEF KEY *R°,"60GUB REPMAT’: 
CSSS SSSR SDS m mm mm mm mm mm mime mg moon DEF KEY ?1°,’G0SUE TRIMÉT:: 


0350 *ADDMAT': IF P1=0 THEN DISF ‘Pile vide !” © BEEP @ END DEF KEY ?1°,*60SUB MATIDT’: 
0360 GOSUB *AK° DEF KEY *0°,'G0SUR DPTRES”: 
0370 IF H40 OR N8F THEN DISF ‘Dit. de dimension !* @ BEEP ELSE 390 M DEF KEY *P°,*G0SUB FOUMAT’: 
0380 ASSIGN #1 TO + & ASSIEN #2 TO à & END DEF KEY °6°,*G0SUB STOMET': 
0390 DIN AID,P),BUM,N) DEF KEY *D°,*60SUB DETHAT’: 
0400 READ #2:41,) & READ #1:B1,) DEF KEY °K°,*G0SUE HULTCOL': 
0410 FOR 1=1 TO H 6 FOR J=1 TON DEF KEY *L?,*60SUB MULTLGK : 
0420 AUI,J)=A(I,d)+B(1,11 DEF KEY °°," G0GUB HULTMAT': 
0430 NEXT J E NEXT I DEF KEY *C°,’G0SUB CLHAT': 
0440 RESTORE 4? DEF KEY *V°,"GOSUB SMAT’: 
0450 PRINT 42:h,N,A(,) DEF KEY °N°,'GOGUE NINHAX’: 
0480 ASSIGN #1 TO À € ASSIGN #2 TO À DEF KEV *#51°,"GOSUB RDN°: 
0470 GOTO 720 DEF KEY ‘+, G0SUR ADDHAT': 

DEF KEY ’e°,’GOSUR EDITHAT': 
SSSR RSS mme men meme een me nm mm mm en mem mm mm me me DEF KEY °r°’,"G0SUE RESTÉEYS": 
0480 *SKAT’: IF Fi=0 THEN DISP * pile vide !”’ € BEEF & END DEF KEY *5°,/G0SUB RESGYE”: 
0490 FOR I=1 TO K & FOR J=1 TON DEF KEY °d°,"G0SUB DESTMAT”: 
0500 DISP USINE K,° 0,K,,7,k,/)= ?,K" MIN, ,9,4(1,1) DEF KEY ?k°,*G0SUB ADHLCMA : 
0510 NEXT J 6 NEXT I DEF KEY °1°,"G0GUE ADMLLHA’ : 
0520 DISP *OK(°3P1;7)° DEF KEY ‘a’, ”G60GUB HULTHATÉ’: 
6530 END 





0540 *HINHAX: MISINF & M2=-INF 

0550 FOR 1=1 TO M € FOR d=i TO N 

0560 IF NOT FLAB(3) THEN MI=MIN(H1,A(1,0)) ELSE MI=MIN(HI,ABSA(I,1))) 
0570 IF NOT FLAB(3) THEN M2=MAX(M2,AUI,d)) ELSE M2=MAX M2, ARS(AII,J))) 
0580 NEXT d & NEXT I 

0590 DISP *Min=";Ml;" Max=’ ;M2 

0600 END 


0610 *HULTHAT’: IF P1<0 THEN DISF ‘Pile vide !” € BEEP & END 
6620 GOSUE *AN° 
6630 IF PÆH THEN DISP ‘Lgn#Col !? & HEEP € END 
0640 DIM H(0,P),C€N,N),A(D, M) 
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0650 READ 41;Ct,) @ READ #2:Bl,) 
0660 FOR I=1 TO D & FOR =1 TO N € S=0 FOR K=i TO P & S=84B{I,K)#CUK, 1) @ NEXT K & AUI,J)=S 
0670 NEXT 3 & ENT I 

O6BG ASSIEN #1 TD À 

0490 RESTORE #2 

0700 PRINT #20, N,A(,) € ASSIEN 42 TO à 
0710 H=0 

0720 PURE *MAT'&STRS (PL) 

6730 PI=PI-1 

0740 DISF *DKU°;P15°)? 

0750 END 


0760 *STOMAT': INPUT ’Sto n ?’35$ 
0770 IF S$ILEN(5$)]=7#? THEN 830 

0780 IF Pi=0 THEN DISP ‘Pile vide !’ E BEEP @ END 
0790 ON ERROR GOTO B60 

0800 COPY *MAT*ESTRS(FI) TD *SMAT’£5$ 
0810 DISP *DK(”;P13°)? 

6820 OFF ERROR & END 

0830 PURGE *SHAT’ &B$C1,LEN(S#)-11 
0849 DISP *OK(°;F13°)° 

9850 END 

0849 PURGE *SMAT’65$ € GOTO 800 


0870 *RAPHAT’: INPUT ’Rcl n ‘5R$ 

6880 ON ERKOR EOTO 980 

0890 COPY *GHAT'ERS TO HAT’ LSTRS (PI+#1) 
0900 PI=P1+1 

0910 AGSIGN #1 TD ’HAT’ESTR#(PI) 

0920 READ #L3M,N 

0930 DIM AUH,N) 

0940 READ #1;A(,) 

0950 ASSIGN #1 TO À 

0960 DISP ’OK(’;Pf;°)? 

0970 END 

0980 OFF ERROR € DISF ‘Mexoire vide !* & BEEF € END 


0990 RON: IF Pi=i THEN DISP ‘Un seul elenent !* 6 BEEP 6 END 
1000 IF P1=2 THEN EOTO 1040 

1010 RENANE *MAT'RSTRS (PI) TO MATPASS 

1020 RENANE “MAT ESTRS(PI-1) TO *MAT'ESTRS (PL) 
1030 RENAME *HAT'RSTRS(PI-2) TO *MATLSTRS(PI-1) 
1040 RENAME MATPAGS TO MAT? LSTRS (P1-2) 

1050 ENTO 1090 

1060 RENAME *MAT'ASTRS (PI) TO MATPASS 

1076 RENAME *MAT'LSTRS(PI-1) TD *MAT'ESTRS (F1) 
1080 RENAME HATPASS TD MAT ESTRS (P1-1) 

1090 AGSIGN #1 TD *MAT'£OTRS (PL) 

1100 READ #1:M,N 

1110 DIK AUK,N) 

1120 READ #1:41,) 

1130 ASSIEN #1 TD à 

1140 DISP °OK{*;P45")" 

1150 END 


1160 *HULTLEN’: INPUT ’Ligne,Cte ? *;L,C1 
1370 IF LUN THEN DISP ‘Ligne inexistante !’ 6 BEEF & END 
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1180 *SUBALGN’: FOR 1=1 TO N 
1190 AIL,I)=A(L,1)4C1 

1206 NEXT 1 

1216 GOTO 1390 


1220 *HULTEGL’: INPUT ‘Colonne, Cte ? ’5K,Ci 
1230 IF K2N THEN DISP *Colonne inexistante !? @ BEEP € END 


1246 *SUBNCOL': FOR 1=1 TO M 
1250 AUI,K)=A(I,K) 401 

1260 NEXT 1 

{270 GDTD 1390 


1280 *ADHLCMA’: INPUT *Clnt,Cln+,Cte ? *;K1,K2,C1 
1290 IF KEN OR K23N THEN DISP ‘Colonne inexistante !” & BEEF & END 


13500 ?SUBANC*: FOR I=1 TD H 
1310 AUT,K2)=A(I,K2)+A(I, KL) CI 
1326 NEXT I 

1330 G0TO 1399 


1340 *ADMLLHA’: INPUT ’Lgnt,Lgnt,Cte ? ’;Li,L2,C1 
1350 IF Li2K OR L22M THEN DISP ’Ligne inexistante !’ & BEEP @ END 


1360 *SUBAHL’: FOR I=1 TO H 
1370 A(L2,1)=A(L2, L)+A(L4, 1)#C1 
1380 NEXT I 

1390 1F FLAGI1) THEN RETURN 
1400 ASSIGR #1 TD *HAT'ESTRS (PL) 
1410 RESTORE #1 

1420 PRINT #:H,N At, ) 

1430 ASSIBN #1 TO + 

1440 DISF *OKC;P13°}° 

1450 END 


1460 *AW7: IF P1=1 THEN DISF ‘Op, non valide !’ & BEEP & END 
1470 ASSIGR #1 TO NAT'ESTR#(PI) © ASSIBN #2 TO *MAT'&STR&(P1-1) 
1480 READ #13M,N @ READ #2,0,P © RETURN 


1490 *HATIDT’: DESTROY À 
1500 H=VALIDISP$) & H=M 
1516 DIH AUH,N) 

1520 FOR I=1 TO H 

1530 A(I,1)=1 

1546 HEXT I 

1550 GOTO 160 
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1570 *EDITHAT’: FOR I=1 TD M @ FOR J=1 TO N 

1580 DISP USINE “8,” (°,K,710",K,7 "Ke "sMfN, 1] 
1590 LINPUT ??,STRS(AUI,J))5E$ 

1400 IF ESC1,114°# THEN 1660 

1810 IF E$L1,11=°#? AND NOT POS{ES,”,”) THEN 1400 
1820 I=VAL(ESI2,POSIES,”,°)-11) © J=VAL(ESCPOS(ES,? #11) 
1630 IF IN THEN I=X 

1640 IF JDN THEN J=N 

1450 EQTO 1580 

1860 AI, J)=VAL(ES) 

1870 NEXT 9 & NEXT I 

1480 EDTD 1570 


1690 *TRIMAT’: SFLAB ! 

1706 FOR K=N TO 2 STEP -{ 

1710 FOR d=1 TO K-1 

1720 Li=K 8 L2-J 

1730 IF AIK,K)=0 THEN 1780 ELGE Ci=-A{J,K)/A{K,K) 
1740 GOSUB ? SUBAML? 

1740 NEXT d 

1760 NEXT K & CFLAG 1 

1770 IF FLAG(2) THEN RETURN ELSE GOTO 1400 


1780 *DETMAT': IF MAN THEN DISF *LonéCol !* @ BEEP @ END ELSE GFLAG 2 
1790 GOSUB ?TRIHAT? 

1800 CFLAB 2 

1819 D=1 & FOR 1=i TON 

1820 D=D#A{I, D) 

1830 NEXT I 

1840 DISP ?[DETI=";D 

1850 ASSIGN #1 TO “MATESTRS(PL) 
1860 READ #15M,N,A,) 

1870 ABSIEN #1 TO # 

1880 END 


1890 *REGSYS’: DISF ’En cours de resclution’ & SFLAE 2 
1900 GOSUB *TRIMAT* 8 CFLAG 2 

1910 FOR K=1 TO M-1 

1920 FOR J=N T0 K+1 STEP -1 

1930 LI=K E L2=I 

1940 IF AIK,K)=0 THEN 1980 ELSE Ci=-A{J,K)/AIK,K) 
1950 SFLAG 1! 

{960 GOSUR * SUBAML* 

1970 NEXT J 

1980 HEXT K 

1990 FOR Jd=1 TON 

2060 1F All,d)=0 THEN 2030 

2010 L=J & C1=1/A{],d) 

2026 GOSUB * SUBHLOEN’ 

2030 NEXT J & CFLAB 1 & G0TO 1400 


2040 *OPTRES’: FOR 1=1 TO M € FOR J={ TO N 
2050 IF ABS(A(I,d))<,00001 THEN A(I,d)=0 8 BEEP INF,.{ 
2640 NEXT J & NEXT I @ END 


2070 *MULTHATK’: INPUT ‘Constante ? ‘C1 
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2080 FOR 1=1 TO M @ FOR 9-1 TO N 
2090 AlI,d)=A(T,J)4CI 
2100 NEXT J & MEXT I & END 


BEI NEESEEEEESEE MEERS ESSNEEEREESNRNE TES EAENARNNENTATATS 


Prograëre “DESSIL" (dessin sur HP 71h) 


1006 DELAY 0 
1010 DESTROY ALL & RESET 
1020 DIH A$C1321,F#11321 
1030 INTEGER 1,Y,L, 1,1 
1046 X=1 © Y=7 6 AS=CHR$S (128) 
1056 GDISP A$ 
1080 SFLAG 6 

- Test clavier 


1670 *KEYTEST?: 

1089 IF KEYDOWHU'#50) THEN °UP° 

1690 IF KEYDOWN{'#51°) THEN *DHN° 

1100 IF KEYDOWN (4477) THER °L’ 

1110 IF KEYDOWN(°#48°) THEN °F? 

1126 IF KEYDOBN(*D°) THEN ’KEYD’ 

1130 IF KEYDOHN{*1°) THEN *INU? 

1140 IF KEYDOBN(E") THEN *HOVE’ 

1150 IF KEYDOHN(°P°) THEN ?F0S* 

1160 IF FLAG(4) THEN *KEYTEST” 

1170 IF KEYDOBN (T°) THEN SFLAG 6 € GOTO *AFF* 
1180 IF KEYDOWN(?6°) THEN CFLAE & € GOTO *AFF° 
1190 IF KEYDOWN (C7) THEN *CHRDATÉ” 

1260 60TO 1080 


1219 *ÉEYD': ! E/S node deplacement 
1226 1=FLAG(4,NOT FLAG(4)) 
1230 IF FLAG(4) THEN B$-A$ 6 RADIANS ELSE DEGREES 
1246 GOTD *AFF* 
- Déplace le curseur 


1230 *UF?: IF V20 THEN Y=Y-1 
1260 6070 ?AFF* 


1270 *DHH°: IF VC7 THEN Y=V+1 
1285 GOTO *AFF* 


1296 °L?: IF X91 THEN X=i-1 
1300 GOTO *AFF* 


1310 °R’: IF XC132 THEN X=X+#1 
- Affichage 


1320 *AFF’: IF FLAG(4) THEN A$=B# 
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1330 CENUN(A$IX3) 
1340 IF FLAG(4) THEN *DEP? 


É 
SSSR RRSSTISZZSSSSRSRSSSTSS= SEE RSS RTS ITS SES SSSSSSSESESE 


1360 *6°: IF NOT FLAB(6) AND BIT(C,V) THEN C=C-25V 
1370 6070 *FIN’ 


1380 *DEF’: 
1590 IF BIT(C,Y) THEN C=C-2*Y ELSE C=C+29Y 


1400 *FIN’: BEEP 900,.005 
1410 A$IX,X1=CHR$ (0) 

1420 GDISP A$ © A$=GDISF# 
1430 G0TO ’KEYTEST* 


1440 ‘POS’: A$=6DIGP$ 

1450 DISP & CFLAG 4 

14606 INPUT *De O0 a 13h: K=°751 
1470 INPUT ‘De @ a 7: Y=’5Ÿ 
1480 X=HOD(X+1,133) 

1496 Y=7-MOD(Y, 8) 

1500 GOTO *KEYD’ 


1510 *CHRDATA’: A$=6DISP$ & Hé=A$ 

1520 DISF *Codes:” 

1550 IF HNUM(A#)=0 THEN A$=<A$I2] & 6070 1530 
1540 DISF "(Vioir  (S}auver* 

1540 IF KEYDOUN(*V*) THEN DELAY INF 8 GOTD 1570 
1546 IF KEYDOWN(*S°} THEN GOSUR 1990 ELSE 1550 
1570 FOR 1=132 T0 1 STEP -1 

1580 IF NUH(A$II1)<>0 THEN 1800 

1590 HEXT I 

1800 I=6YCEIL(1/6) 

1410 FOR J=1 T0 I STEP b 

1620 IF NOT FLAG(S) THEN DISP USING *#,'CHR°,2D,°:°":CEIL(J/6) 
1430 FOR C=J TO J+#5 

1640 IF NOT FLAG{S) THEN DISP USING “#,Kk,°,”*:NUMIA#IC]) 
1650 IF FLAG(S) THEN PRINT #3 NUM(A$ICI) 

1660 REXT E 

1870 IF NOT FLAG(S) THEN DISP 

1686 NEXT J 

1690 DELAY 0,0 & GDISF B$ 

1700 ASSIGN #1 TO À 

1710 CFLAG 5 

1726 G0TO *KEYTEST* 


1736 *INV?: A$=6DISP$ 
1740 FOR J=i TO 132 
1730 C=NUNIA$E 7) 
1780 C=245-C 

1770 A$Id,dI=CHR$ {C) 
1780 6DISP A$ 

1790 NEXT J 
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1800 B$=A$ 
1810 GOTD *KEYTEST' 


SSSR SRE RSR RER TEE RSE ETES RSS ERISSSSSSSSSSESSSSSESSSSSSS 


1820 *HOVE”: 

1830 BEEP 1500,,05 & SFLAG 0 € GOTO 1850 
1840 IF KEYDOHN{’B°) THEN BEEP 1500,,05 & CFLAB © @ Af-G6DISP$ & 6010 1800 
1850 IF KEYDOWN(*4487) THEN GDISP CHR$(O)&EDISPS 
1860 1F KEYDOKN{’#47°) THEN GDISP GDISP$[2] 
1870 IF KEYDOKN(*#50°) THEN J=0 € GOSUR 1900 
1889 IF KEYDOWN(*#51°) THEN d=1 8 GOSUB 1900 
1890 GOTD 1840 

1900 A$=6DISF# & USER ON 

1910 FOR I=1 TO 132 

1920 C=NUN(A$II1) 

1930 IF C=0 THEN 1970 

1940 1F J THEN C=2#C ELSE C=C DIV 2 

1950 A$CI,1]=CHR$ (C) 

1960 GDISP À$ 

1970 NEXT 1 € USER DFF 

1980 RETURN 

1990 SFLAG 5 & DISP 

26066 INPUT "Nos du fichier: “3M$ 

2010 CREÂTE SDATA N$ 

2020 ASSIEN #1 TO Né 

2030 RETURE 


HSE TESTÉES ONE EEE EEE ON ETES ETES ERNEST 


Progragme "K7i" (éditeur de cassettes) 


1900 DIN E$[2561,C$14] 
- E$: variable alphanumérique contenant l'enregistrement spécifié, 
C$: variable alphañuñérique contenant la valeur des touches pressées dans la boucle 
d'attente, 
1010 INTEGER C,D,E, 1,0 
- Ci valeur du code BSCIT où se trouve le pointeur (variable 0). 
D: adresse du lecteur dans la boucle, 
E: valeur locale du pointeur d'enregistregent, 
1: come d'habitude, 
0: valeur locale du pointeur d’octet 
1620 RESET HFIL 
1030 RESTORE ID 
1946 EFLAG 0 
- L’indicateur binaire 0 sert à valider la modification de l’enregistrement courant. 
1650 DELAY 0,0 
1985 D-DEVADDR("X14°} 
- Si plusieurs lecteurs de cassette se trouvent dans la boucle, le programe utilisera le 
pregier qu’il rencontrera, 
1070 IF D>0 THEN ?ENTREE* 
1086 BEEP 
1090 DISP ‘Pas de lecteur !17 
1100 END 


11106 *ERTREE”’: 
1120 CLEAR :D & I=SPOLL(D) 
- Teste si le lecteur n’est pas en condition d'erreur. 
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1130 IF 1316 AND 129 THEN BEEP € DISP ’Erreur lecteur !!7° @ END 
1140 SFLAG -23 
- Merci Pierre DAVID, Lorsque le drapeau -23 est à 1, un ressage EOT (End Of Transnission) 
suit l’envoi d’une variable dans la fonction ENTER’. 
1150 GOSUB * LECTURE” 


1160 *RETOUR’: 
1170 GOSUB ? AFFICHE” 


1500 BOUCLE”: 
1510 C$=KEYS 
1520 1F C$=?° THEN ?BOUCLE? 
1530 IF C$=’#51* THEN GOSUB * IENR’ 
1540 IF C$=’#50 THEN GOGUB *DENR° 
1530 1F C$=’#48* THEN GOSUB * IOCT’ 
1540 IF C$=’#47” THEN GOSUB *DOCT’ 
1570 IF C$=’E* THEN GOSUR * XENR’ 
1580 IF C$=*0? THEN GOSUB ? XOCT” 
1590 IF C$=’C? THEN GDSUB *CARACT? 
1606 IF C$=°R? THEN GOSUR *EFFACE? 
1610 IF C$C)°F? THEN RETOUR’ 

— CATIN/ON], arrête le programe sans écrire l’enregistresent courant, 


2006 *FIN’: 
2010 IF FLAG(O,0) THEN GOSUB ECRITURE” 
- Si l'indicateur binaire 0 égale 1: des modifications ont été faites sur l’enregistresent 
courant, il faut réécrire ces rodifications. 
2620 SEND LISTEN D 
- Déclare 1e lecteur conte appareil récepteur. 
2050 SEND DDL 7 
- Ordre récepteur dépendant 7 (DDL7): resbobinage. Resbobine la bande cosplètement. La 
bande ne peut alors être utilisée que si la porte est ouverte et referaée, un ordre HPIL 
Bppareil libre est reçu ou un ordre Recherche (DDL4) repositionne la bande. 
2640 SEND IFC 
- Interface libre (InterFace Clear): efface l’état émetteur, l’état récepteur ou les 
ordres en attente de tous les périphériques de la boucle, 
2050 CFLAB -23 
- Voir ?ENTREE”? 
2040 END 


3000 *IENR’: 
3010 IF FLAG(O,0) THEN GOSUB *ECRITURE* 
- Si l’indicateur 0 est dispasé, des aodifications ont été faites sur E$,,,,..,.., 
3030 E=HOD(E+1,512) 
3040 GOSUB *LECTURE* 
3050 RETURN 


3100 *DENR’: 

3110 IF FLAB(0,0) THEN G0SUB ‘ECRITURE’ 
3130 E=MOD(E-1,512) 

3140 GOSUB *LECTURE’ 

3150 RETURN 


3206 *IOCT’: 
3210 O=NOD(0+1,254) 
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3220 RETURN 


3309 *DDCT’: 
3310 D=NOD (0-1, 256) 
3320 RETURN 


3406 ?XENR’: 

3410 IF FLAG(0,0) THEN GOSUE ECRITURE” 
3430 INPUT °E-7,STR$(EN;E 

3440 GOSUB *LECTURE* 

3450 RETURN 


3400 *CARACT’ : 
3410 DISP TAR(I3);°C-’; 
3820 INPUT ?’,STR$(C);C 
3430 E$L0+1,0+11=CHR$(C) 
3440 SFLAG 0 

3450 RETURN 


3700 *EFFACE?: 

3710 FOR 1=0+1 TO 256 
3720 ESCI, 11=CHR$ (255) 
3730 REXT I 

3740 SFLAG 0 

3750 RETURN 


2000 *ECRITURE* : 
3019 GOSUB *FOINTEUR* 
- Flace la bande à la bonne adresse, 
5020 SEND DDL 
- Ecriture partielle. L'enregistrement courant est copié dans la mémoire tampon 0 et la 
bande revient au début du éme enregistrement. Les octets de données reçus remplacent le 
contenu de la nénoire Ô0 en commençant à l’enplacement du pointeur (le pointeur est à 0 
pour le programme). Lorsque la ménoire est pleine, son contenu est transféré dans l’en- 
registrement qui à été lu. 
5030 SEND DATA E$ 
- La longueur de E$ égale 254 octets, ‘Lorsque la mémoire est pleine... *: voir DDLé, 
4040 RETURN 


6690 *LECTURE” : 
6019 GOSUB POINTEUR’ 
8020 SEND DDL & 
bG30 SEND HLA 
- Définit le HP71 comse récepteur (Hy Listen Âdress), 
h040 SEND TALK D 
- Définit le lecteur comme énetteur {il ne peut y avoir qu'un seul émetteur à la fois sur 
la boucle), et annule l’état récepteur du lecteur. 
4050 SEND DDT 9 
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- Envoi énoire 0. Un aessage Envoi données suivant (inclus dans ENTER) transtère le con- 
tenu de la nénoire 0 sur La boucle à partir de la position du pointeur. 
6066 ENTER :D :E$ 
- Ef=nouvel enregistrement. 
&ÿ76 RETURN 


7000 * POINTEUR” : 
7010 SEND UXL 
- Éfface l’état récepteur de tous Les périphériques. Vidéo par exemple qui afficherait les 
octets passant devant elle. 
7026 SEND HTA 
- Le HP71 devient l’énetteur de la boucle. 
7036 SEND LISTEN D 
- Le lecteur est le seul récepteur. 
7049 SEND DDL 4 
- Recherche, Les deux octets de données suivants définissent les numéros de piste (0 ou 1) 
et d'enregistrement (0 à 255) et y positionnent la bande. Cet ordre annule le node 
d'écriture partielle (DDL4). 
7630 SEND DATA CHR$(HODIE DIV 254,2) )&CHRS (MOD(E, 254)) 
- Envoi des deux octets, 
75664 SEND DDL 3 
- position du pointeur, Les octets suivants définissent la position du pointeur de 0 à 
253. 
1076 SEND DATA CHR$ (0) 
- Envoi de l’octet 0, 
7080 RETURN 


8006 * AFFICHE” : 
8010 INAGE *E-°,57,° O-’,32,° C-°,31,4, A, X,24 
- Affichage du type ?E-052 0-012 C-065 À 41°: enregistrenent 42, octet 12, caractère 45, 
À, code hexa 41. 
4920 C=NUH(E#CO+11) 
8030 IF C?31 AND C127 THEN Ct=CHR#(C) ELSE Cé=’ * 
8040 DISP USING 8010:E,0,C,C$,DTH#(C)C4,5] 
BGaû C$="° 
8666 RETURN 


DEEE EEE ER EEE EEE ESS REEAEREREESRAES RARE ERNEST ERA RECETTES 


Frograane "GESTHFIL" (gestion de la boucle HPIL) 


1060 RESET HPIL & RESTORE ID 
- Dispose et assigne la boucle. 
1616 OPTION BASE 1 
162ÿ DIH A$C40] 
- Àf: Variable brouillon. 
1030 IATEGER A(1),D(30),1,d,K,N,P & F=0 
- À: adresse des HE 71. 
D: Nuaëro des HF 71 demandeurs, 
N: noabre de HP 7[ dans la boucle. 
Fi pointeur dans La pile des demandeurs (pile FIFO). 
1,d,K: variables brouillon. 


1640 DEF FNH${X)="HP7 I ('LSTREEK IL 17 
- En clair: HE 711f) 
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1050 DEF FNT(X) 
- Teste si le HP 71 nunñéra X est déjà demandeur. 
{s’il ne l’est pas, 0 s’il l’est, 
1040 FNT=1 
1070 FOR K=1 T0 P 
1080 IF DIK)=X THEN FNT=0 & 60TD 1100 
1090 NEXT K 
1100 END DEF 


1110 *INIT': 
1129 FOR I=1 TO 30 
1130 J=DEVADDR (FNH$(1)) 
- dt adresse du i-ème HP 71, 
1140 IF JC0 THEN 1190 
- Si elle est négative , alors le i-ème 71 n'existe pas. 
1150 INTEGER A(I) 
- Le tableau À est disensionné exactesent au noabre de HP 7{ dans la boucle. 
1160 A(I)=] 
1170 GOSUB *RESETHP* 
- On prépare Le 71 à l’adresse d. 
1180 NEXT I 
1190 N=I-i 
- N: Nosbre de HP 71. 
1200 DISF ’I1 y a’sN;°HP71.? 
1210 BEFP 
1220 IF N=0 THEN STOF 
- On arréte si il n’y a pas d’autre HF 71 dans la boucle... 
1230 J=DEVADER (*HP71°) 
- On initialisera (ligne 1269) un HP 71. Alors, autant que cette adresse existe ! 


1240 *BQUCLE? : 
1250 CONTROL ON 
- On reprend Le contrôle (le HP 71 degandeur vient de rendre la main), 
1266 GOSUB ?RESETHP? 
- On redispose ce HP 71, 
1270 DISP P; & FOR I=1 T0 P & DISP DIL); & NEXT I 
- On affiche le nonbre de demandeurs, et leurs nunéros, 
1289 FOR I={ TO N 
1290 IF SPOLL(A(1))=160 AND FNT(I) THEN GOGUE *EMFILE* 
- Si le ième HP 71 denande Le contrôle, et qu'il n’est pas dans la pile D, alors on 
eapile son adresse, 
1300 IF KEY$=’#155" THEN FIN? 
- Arrét si [g} CON], 
1310 NEXT I & DISP 
1320 IF F>0 THEN *FASSE* ELSE 1270 
- Si le nombre de demandeurs (P} est non nul, on passe le contrôle, sinon on boucle. 


13306 *ENPILE": 
1340 IF F=30 THEN RETURN 
- Pile pleine, 
1330 P=P+1 
1360 DIPI<A(T) 
- L'adresse A(T) est aise au sonnet de la pile D. 
1370 RETURN 
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1380 *RESETHP*: 
1390 REMOTE :J 
- Flace Le HP 71 d'adresse d en node télécommande (les données envoyées sont interprétées 
corne des connandes Basic), 
1400 OUTPUT :J 3 ’USERONEREQUESTO? 
- Initialisation: REQUEST 0 veut dire "je ne demande pas le controle", 
1416 OUTPUT :9 3 °KEY"#199", "REQUESTIBORBEEP999,, 1*:? 
- Assignation de La touche Cg} CON], 
1426 LOCAL :d 
- Resise en node LOCAL (aode normal), 
1430 RETURN 


1446 *PASSE’ : 
1450 J=D{1) 
1460 FOR I=1 TO P-1 
- Si Pé=i, la boucle n’est pas éxécutée, 
1476 D(T)=D(I+1) 
1440 NEXT I 
- Dépile le tableau P. 
1490 P=F-1 
1300 FOR I=1 TON 
1519 IF A(T)=J THEN 1530 
- On recherche le numéro connaissant l'adresse, 
1320 NEXT 1 
1530 A$="BEEPINF, , IERENOTE"&FNHS (N-T+1)£"8OUTPUT *£FNHS (N-I+1)4"3 RUN, BOUCLE? * 
1540 OUTPUT :J 3 "REQUESTOSKEY "#15", *? BASE *: @RESTOREIO8BEEP? 
- Assignation de la touche [g] CON, 
1550 LOCAL :J 
1560 A$=’ene* & IF I=1 THEN A$=’er* 
- Plus agréable... 
1570 DSP ’Controle: *:6TR$(I);A$;" HP71,? 
1580 PASS CONTROL :J 
- Le passage de contrôle proprement dit. 
1590 STOP 


1669 *FIN’: 
1619 FOR I=1 TO N 
1629 REMOTE :A(1) 
16309 OUTEUT :&{I) ;’USERQFFEKEY"#155"? 
- “Désassignation" de la touche [gl [ONI. 
1646 LOCAL :A(1) 
1650 NEXT ! 
1640 END 
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84/07 
FFE FÉARIS CHAPTEF 


ASSOCIATION REGIE PAR LA LOI DE 1901, ENREGISTREE 
A PARIS LE 2 DECEMBRE 1982 SOUS LE NUMERO 82/3240 


ENILLETIEIM LD MOMIE ZT Or 


NOM ' 


PRENOM : 


ADRESSE : 


CODE FOSTA 


COMMUNE ii 
L 


FROFESSION 
INTERETS 


COMMENT AVEZ-VOUS CONNU FFC PARIS CHAFTER 7 
PUBLICITE MAGAZINE 


AUTRE CLUE HF 


RELATIONS, MEMBRES DU CLUB, AUTRES 


Je souhaite adhérer au club FFC FARIS CHÉAFTER conformément aux statuts de 
l'association. Qu mieux de ma connaissance, je déclare avoir le droit de fournir 
cous les programmes et informations que je vous enverrai (sans enfreindre des 
obligations de secret À l'égard d'autres Personnes OU organismes) pour 
publication dans le journal de liaison, sans obligations ni responsabilité 
d'aucune sorte (en cas d'utilisation frauduleuse) de la part des dirigeants du 
FFC FARIS CHAPFTER, 


DATE 11/11 14/1911: 


SIGNATURE, FRECEDEE DE LA MENTION "LU ET AFFROUVE" 


LE MONTANT DE LA COTISATION AU FFC FARIS CHAFTER S'ELEVE À 25,00 FF, 
LL" SECNNEMENT FOUR UN AN AU JOURNAL J.F4C, S'ELEVE À 170,00 FF, 
FAIEMENT EFFECTUE LE :11/111/19121 1 À L'ORDRE DE FFC PARIS CHAFTER,. 


FAR EC 1 CHEQUE BANCAIRE N° BANQUE 


L° -JCHÉBUE POSTAL: © VDLÉTS Me 2 4 0 ne 2. 
C 1 MANDAT LETTRE 
EVENTUELLEMENT: JE M'ABONNE à COMPTER DU !1_!/1 1 1/19! 1 


JOINDRE À VOTRE INSCRIPTION UNE ENVELOFFE TIMBRREE À VOTRE ADRESSE. 


VEUILLEZ ENVOYER TOUTE CORRESPONDANCE &: 
MR FHILIPPE GUEZ. 56 RUE J.J. ROUSSEAU, 753001 PARIS (FRANCE) 


